Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл / 7 сообщений из 7, страница 1 из 1
30.07.2004, 10:03:09
    #32628596
Pauleee
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
Скажите как в воровом макросе организовать цикл пока не конец файла, по открытому документу.
While not EOF()
wend

не катит ведь, так как в EOF какой-то аргумент поставить надо
...
Рейтинг: 0 / 0
30.07.2004, 10:05:36
    #32628603
Alexander Popov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
Do while not rs.eof

где rs рекордсет. помойму так.
...
Рейтинг: 0 / 0
30.07.2004, 10:06:55
    #32628608
Alexander Popov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
Сорри вообше не о том вопрос
...
Рейтинг: 0 / 0
30.07.2004, 10:37:30
    #32628693
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
непонятно по чему работает - по внешнему файлу или активному документу ?
есди по внешнему то
open "1.txt" for input as #1
Do While Not EOF(1)
Loop


...
Рейтинг: 0 / 0
30.07.2004, 10:56:32
    #32628766
pauleee
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
по активному документу
...
Рейтинг: 0 / 0
30.07.2004, 12:16:47
    #32629074
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
попробую обозвать переменную как свой документ
...
Рейтинг: 0 / 0
17.09.2004, 01:11:39
    #32698883
hichhicker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл
работает 100% :

-------------------------------------------------------
dim fleName as string, nFile as integer, getLine as string
dim line_counter as long :line_counter=0

nFile=freefile
open fleName for binary as #nFile
do while seek(nFile)<Filelen(fleName)
Line Input #nFile, getLine
line_counter+=1
debug.writeline(line_counter.tostring +", "+trim(getLine))
loop
close
-------------------------------------------------------
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]