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

А если после begin_act в документе нету переносов строки?)

 

KeSqueer
физически не могу все просматривать) смотрю обычно только те темы, на которые жалобы приходят.

 

dZentle_man
видать вам тоже нужно разбирать акты
конкретизируйте или исходник в студию

 

Если бы мне было надо - давно бы разобрал) Куда уж конкретней - такую ситуацию вполне можно предусмотреть, только не без гемора. А уж как озаглавливаются начала и концы актов - это к луне.

 

решается двумя способами:
1. регулярными выражениями
2. синтаксическим анализатором

1. regular expression

Код (Text):

1. if line:match("^ *begin_act[ ]*$") or line:match ("^ *begin_act[ ]+.*",1) then start = true end

наверно можно и изящней, но я с regex'ами в lua на вы

2. parser

Код (Text):

1. кхм... долгая история

 

Ага, а Lua для Luna - тоже родной язык, да?) Изящное решение, весьма)

Ну вот этот вариант я и называл не-без-геморным)

 

dZentle_man

Ну она же Луна, так? Значить родной...

 

С такими аргументами сложно спорить...

 

У меня тут идея появилась по поводу подсчёта актов . А что если считывать файл построчно в цикле, и внутри цикла поставить условие :
"если считываемая строка содержит слово "конец_акта", то переменная "количество_актов" инкрементируется"
Так нормально?
или слишком просто???)))

 

Вполне целесообразно. Правда именно такой функции ни в бейсике, ни в с++ скорее всего нет, так что наверняка эту функцию придется писать ручками. А насчет простоты - простое решение лучше сложного, поэтому всегда нужно стремиться к максимально возможной простоте.

 

dZentle_man
ну не скажите, некоторые люди любят усложнять себе жизнь ))))) ( хех, почему-то вспомнился Том Сойер)

насчёт функции не уверена, но попробую сделать при помощи InStr

 

Некоторые получают удовольствие от боли) Почему-то вспоминается крис касперски)

Ну попробуйте, может оно и есть) Я ж говорю - я бейсика не знаю, да и в многочисленных фреймворках под плюсы может что-нибудь этакое найтись(теоретически).

 

подсчитываем количество актов

Код (Text):

1. ...
2. acts_count = 0 -- сколько актов
3. ...
4.         if line:match("^ *конец_акта *$") then
5.             table.insert(acts, instr); instr = ""
6.             start = false
7.             acts_count = acts_count + 1
8.         end
9. ...

 

Руководство по использованию RegEx в VB для чайников, самоваров и самогонных аппаратов

1. В среде разработки (читаем как IDE), идем в меню Tools->References...
2. В открывшимся диалоге ищем компонент "Microsoft VBScript Regular Expressions 5.5" и ставим галку (подключаем модуль)
3. Теперь можно использовать RegEx в VB

Пример:

Код (Text):

1.     Dim rx As New RegExp
2.     Dim s As String
3.     s = " end_act "
4.     rx.Pattern = "^ *end_act *$"
5.     If rx.Test(s) Then
6.         ; увеличиваем счетчик актов
7.     End If

все шаблоны данные в lua коде актуальны и для VBScript Regular Expression

 

если файл не влезет в кєш диска, он будет будет читаться размером кратнім размеру кєша, а если влезет, то не такой он уж и большой. сериальность|многопочтность чтения зависит от количества головок чтения.
строчная стратегия существует сейчас только в вашей фантазии

 

название темы бредовое - обычно читают кусками в буфер - а там уж можно отпарсить что влезло, сдвинуть и подкачать еще данных из файла

 

Ну в общем- такой вот код получился:

Код (Text):

1. Dim retvall
2. Dim retvalq ' âîçâðàùàåìîå çíà÷åíèå
3. Dim strA As String
4. Dim vvv As String
5.  
6.  
7.    
8.  
9.  
10. Private Sub Form_Load()
11. Form1.BackColor = &HE0E0E0
12. Form1.Height = 14000
13. Form1.Width = 16000
14. End Sub
15.  
16.  
17.  
18.  
19. Private Sub Command1_Click()
20.  
21. Dim y As Long
22. Dim F As Long
23. Dim buffer, retval, rrr
24. Dim count As Long
25.  
26. Static blnprocessing As Boolean
27. Dim lngct As Long
28. Dim dbldummy As Double
29.  
30.       CommonDialog1.Filter = "Òåêñòîâûå ôàéëû (*.txt) Ôàéëû äàííûõ (*.dat)|*.txt;*.dat"
31.       CommonDialog1.ShowOpen
32.       F = FreeFile
33.  
34. Text1.Text = " "
35.  
36. Text3.Text = " "
37. Text4.Text = " "
38. If blnprocessing Then
39.   blnprocessing = False
40. Else
41.   Command1.Caption = "cancel"
42.   blnprocessing = True
43.   lngct = 0
44.  
45.  
46.  
47.   Open CommonDialog1.FileName For Input As #F
48.   count = 0
49.  
50.   Text5.Text = CommonDialog1.FileName
51.  
52.   vvv = FileLen(CommonDialog1.FileName) 'Îáú¸ì ôàéëà
53.   Text4.Text = vvv
54.   ProgressBar1.Max = vvv + 40
55.  
56.  
57.  
58.  
59.    Do While blnprocessing And Not EOF(1)
60.  
61.     Line Input #F, txt
62.      If InStr(1, txt, "idAfterExecute", 1) > 0 Then
63.         count = count + 1
64.         Text1.Text = count
65.     End If
66.     s1 = s1 + txt + vbCrLf
67.      Text6.Text = s1
68.     ProgressBar1.Value = Len(Text6.Text)
69.    
70.     retvall = Text2.Text
71.     retvalq = Split(s1, retvall)
72.  
73.   DoEvents
74.    
75.   Loop
76. ProgressBar1.Value = 0
77.  
78.   Close #F  'çàêðûòèå ôàéëà
79.  
80.  
81.  
82.    
83.    blnprocessing = False
84.    Command1.Caption = "Îáçîð"
85.    
86.  
87. End If
88.  
89.  
90. End Sub
91.  
92. Private Sub Command2_Click()
93.  
94.     Text3.Text = "äàííîå ñëîâî âñòðå÷àåòñÿ â òåêñòå" & "  " & UBound(retvalq) & " ðàç"
95.  
96.    
97. End Sub

Есть, конечно , проблемы:.......при загрузке файла из 60 актов строка прогресса успешно доходит до конца
а из 1000000 актов- высвечивается только один квадратик строки прогресса.......сижу жду приличное время, больше строка не продвигается
гм...

 

Я гляжу мой совет давать осмысленные имена переменным и функциям вы не восприняли) Ну смотрите сами - будете насиловать читателя - не удивляйтесь что он в ответ изнасилует вас)

Косяк может быть во многих местах, наиболее важных мест для проверки около четырех-пяти. Например интересно проверить а вообще открылся ли файл, потом проверить чему равна и нормально ли считается переменная count. Проверить также действительно ли при 60 актах програма все считает и выводит правильно - количество count, обновление прогресс-бара. И если нормально, то проверить файлом с большим количеством актов, чем 60, но сильно меньшим чем мильон - например сто, тысяча, 10 тысяч, 100 тысяч. После того, как будет найдено слабое место - можно уже будет думать как его обойти. Как это все тестировать - решать и придумывать вам, это может быть и месседж-бокс, и вывод нужной информации в командную строку, и даже, для особо извращенных, отладчик, но как им пользоваться - это уже отдельная история.

 

dZentle_man
В следующей программе я обязательно учту ваш совет про осмысленные имена

А ошибку я, как нестранно, нашла..Надо вместо
ProgressBar1.Value = Len(Text6.Text)
написать
ProgressBar1.Value = Len(s1)




Только вот всплыла новая проблема..Размер текстового поля, оказывается, ограничен, и файл целиком туда не помещается..
Надо выводить в текстовое поле только акты, которые содержат заданные пользователем слова...Что-т у меня не очень получается это сделать
Пробовала делать что-то наподобии такого:

Код (Text):

1. Do While blnprocessing And Not EOF(1)
2.  
3.     Line Input #F, txt
4.      If InStr(1, txt, "idAfterExecute", 1) > 0 Then
5.         count = count + 1
6.         Text1.Text = count
7.     End If
8.     s1 = s1 + txt + vbCrLf
9.  
10.     ProgressBar1.Value = Len(s1)
11.     [b]
12.  If InStr(1, txt, "заданное_слово", 1) > 0 Then
13.         Text6.Text = s1
14.  End If
15. [/b]
16.     retvall = Text2.Text
17.     retvalq = Split(s1, retvall)
18.  
19.   DoEvents
20.    
21.   Loop

 

если это vbscript (а похож!), то там точно есть регулярные выражения (RegExp object). Про вижуалбейсик не знаю, но может тоже есть? Выбор из текстового файла только строк, содержащих определенные слова, решается одним регэкспом. Ну и лучше день потерять, потом за 5 минут долететь! (с)