Чтение не по одной строке, а сразу по несколько строк

Как всегда, всем привеет!)))))))
не нашла здесь графы visual basic6.0., поэтому пишу здесь ^__^
.................................................................................
ээээ
в общем
я написала код: при запуске программы происходит построчное чтение из файла => в течении чтения значение переменной count увеличивается на 1.
а мне надо, чтобы увеличивалось ,например, на 10..т.е. чтобы одновременно выгружалось по 10 строк из файла
Что можно исправить в коде?)

Код (Text):

1. Private Sub Command1_Click()
2. Dim ss As String
3. Dim mo As Long
4. Dim xx As String
5. Dim zz As String
6. mo = FreeFile
7. Dim mass(0 To 1) As String
8. Dim aa
9.  
10. Dim count
11. count = 0
12.  
13. ProgressBar1.Max = FileLen("D:\qqqx.txt") + 5
14. Open "D:\qqqx.txt" For Input As #mo
15.  
16.  
17. Do While Not EOF(mo)
18. For q = 0 To q = 3
19.   Line Input #mo, aa
20.   ss = ss + aa + vbCrLf
21.   count = count + 1
22.   Text1.Text = ss
23.   Text2.Text = count
24.   ProgressBar1.Value = Len(Text1.Text)
25. Next q
26.  DoEvents
27. Loop
28.  
29.  
30.  
31. Close #mo
32.  
33.  
34. End Sub

[modnote=TermoSINteZ]Хватит извращать заголовки тем.[/modnote]

 

Исправить синтаксис на Сишный синтаксис?

 

1. Если вы не нашли здесь темы с вижл бейсиком, то пишите в бегиннерс - там над ней сразу надругаются, заявят что насчет вижл бейсика нужно постить на другие форумы и закроют. И будут правы.


2. Что за q такое еще? Количество строк, которое вы планируете считать с файло? Чтобы были считаны все строки нужно не q брать с ограниченным количеством, а поставить условие "выполнять пока функция получения строки из файла не возвратит ошибку".

Чтобы считывать по десять строк поменять нужно здесь:
Do While Not EOF(mo)
For q = 0 To q = 3
For i = 0 To i = 9
Line Input #mo, aa
ss = ss + aa + vbCrLf
next i
count = count + 1
Text1.Text = ss
Text2.Text = count
ProgressBar1.Value = Len(Text1.Text)
Next q
DoEvents
Loop


3. Пишите код читабельно - и вам будет легче, и другим. Например вместо q можно объявить переменную NumberOfStrings, или, если с английским не лады, - KolichestvoStrok. Вместо переменной ss - FullString, или, по-правосламному, VsyaStroka. Я вам серьезно говорю, с таким кодом нужно иметь очень большой бюст чтобы вас не послали сразу.

 

Бгг, правильное(ну условно правильное, потому что если строк будет 7, то алгоритм _чтения_по_10_строк_сразу три раза зря выполнит функцию считывания строки) условие уже было поставлено - Do While Not EOF(mo)/Loop, это ваши q тут вообще ни к какому месту. Правильнее было бы вот так:
Do While Not EOF(mo)
For i = 0 To i = 9
Line Input #mo, aa
ss = ss + aa + vbCrLf
next i
count = count + 1
Text1.Text = ss
Text2.Text = count
ProgressBar1.Value = Len(Text1.Text)
DoEvents
Loop


Я уж молчу про алгоритм обновления прогресс-бара и количество переменных сверх необходимости)

 

А, так еще надо чтобы count соответствовал количеству считанных строк? Тогда занести внутрь цикла for -
Do While Not EOF(mo)
For i = 0 To i = 9
Line Input #mo, aa
ss = ss + aa + vbCrLf
count = count + 1
next i
Text1.Text = ss
Text2.Text = count
ProgressBar1.Value = Len(Text1.Text)
DoEvents
Loop
Правда, если количество строк не будет кратно 10, то ваш count, который по алгоритму считывания сразу по 10 строк - всегда будет 10 кратен - будет не соответствовать чему бы он там ни соответствовал по вашему замыслу.

 

--- Луна - луна! Цветы - цветы...

 

Правильно говорят: Луну халатом не прикроешь

Зачем тебе читать построчно, чтобы потом строки слепливать снова через vbCrLf?
Зачитать весь файл целиком религия не позволяет?

 

У нее прогресс-бар прикручен - плказывает сколько из файла уже прочитано. А вообще прога явно для пробы пера, это же очевидно.

 

Надо бросать VB и переходить на Delphi. Там это делается легко и непринуждённо.

 

CyberManiac
не надо останавливать на бросании VB
Надо бросать программировать...

 

Luna

Покеж свои фотки)

 

+1

 

+1

 

Luna и сиське)))

 

Гюльчатай, личико покажи!

 

Опасно так читать, можно окосеть, лучше читать по одной,
мееедленно, вслух и с выражением.

Вам нужно фото? Ну это примерно так выглядит.

 

Тебя это тоже касается

Много троллей ITT
Comer ты где?

 

тИЦ or PageRank