| Вопрос: ASCII | Добавлено: 19.06.04 19:39 |
Автор вопроса:  Seregahome
|
|
Как считать данные из txt файла через ADO либо через Data. Выглядит примерно так: 1623,4445,667,,234, т.е. данные разделены запятыми.
|
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 19.06.04 19:55 |
|
1. Циклом - посимвольно (очень медленно)
2. Загрузить весь файл в переменную, и разбить строку на массив с пом. Split(str, ","  . (много быстрее)
|
||
|
Номер ответа: 2 Автор ответа: Seregahome Вопросов: 39 Ответов: 24 |
Профиль | | #2 | Добавлено: 19.06.04 20:16 |
| А небольшой примерчик возможен? Если не сложно. | ||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 19.06.04 20:43 |
|
dim nf as integer, tStr as string, sArr() as string
open lpFileName for binary access read lock write as nf tStr = Space(LOF(nf)) get nf, ,tStr close nf if len(sArr) = 0& then call msgbox("Файл пуст" : end
sArr = split(tStr, ","
for nf = 0 to ubound(sArr) debug.print sArr(nf) next |
||
Страница: 1 |