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

Luna

И не удивительно. На Delphi перейти будет быстрее, чем дождаться результата.

 

лучше сразу на ассемблер

 

newbie
Ага, причём пишем сразу в бинарном виде, не замарачиваясь Х)

 

congrats)

Ну так вы выискиваете ключевые слова все с того же файла, который не может поместиться в текстовое поле, а вам нужно решить проблему его размещения. Для этого нужно считывать его в текстовое поле кусками, то есть считывать его не сразу до EOF(1), а до какого-то количества, например 40000, которое текстовое поле еще поддерживает. Потом, с этого же места, считать еще кусок. Потом еще. То есть задать цикл такого считывания.

 

dZentle_man
неа)))
я считываю весь файл в переменную s1, а выводить в текстовое поле должна только некоторые акты

 

CyberManiac
newbie
эх вы,нельзя убегать от проблемы)
нужно заставить её убегать от тебя =)

 

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

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

 

Luna

переход на ассемблер как раз таки есть "заставить её убегать от тебя =)"

 

Luna
А что "войны бэйсика" говорят?

Я то думал тема, когда, затихла, вы просто пошли на форум по бэйсику, а у вас до сих пор она не решена.

 

RX200
не решена, но по-тихоньку продвигается )))надо на новый год загадать, чтоб уж полностью продвинулась =)

 

Ваша стремление учиться просто непреодолимо....

PS
Нет, чтобы загадать, чтобы у начальника случилось прояснение... и он понял, что был не прав и вообще лучшим выходом будет повеситься...

 

Z3N

Да ладно уж вам так говорить)))
просто, чтоб на душе весело было, надо предварительно хорошенько себя помучить ^___^....хее
а на новый год я просто не знаю, что загадать- всё и так сбудется 8).............

Кстати, надо для отчётности поместить сюда вариант решения задачи:

Код (Text):

1. Dim retvall
2. Dim poisk
3. Dim retvalq ' возвращаемое значение
4. Dim strA As String
5. Dim vvv As String
6.  
7. Dim y As Long
8. Dim F As Long
9. Dim buffer, retval, rrr
10.  
11.  
12. Dim blnprocessing As Boolean
13. Dim lngct As Long
14. Dim dbldummy As Double
15.    
16.  
17.  
18.  
19. Private Sub Form_Load()
20. Form1.BackColor = &HE0E0E0
21. Form1.Height = 14000
22. Form1.Width = 16000
23. Text1.Text = " "
24. Text6.Text = " "
25. Text7.Text = " "
26. Text4.Text = " "
27. End Sub
28.  
29.  
30. Private Sub Command3_Click()
31.      
32. poisk = Text7.Text
33.  
34. End Sub
35.  
36.  
37.  
38. Private Sub Command1_Click()
39. CommonDialog1.Filter = "Текстовые файлы (*.txt) Файлы данных (*.dat)|*.txt;*.dat"
40.       CommonDialog1.ShowOpen
41.       F = FreeFile
42.   Dim count As Long
43.   count = 0
44.  
45.   If blnprocessing Then
46.      blnprocessing = False
47.   Else
48.      Command1.Caption = "cancel"
49.      blnprocessing = True
50.      lngct = 0
51.  
52.   Open CommonDialog1.FileName For Input As #F
53.  
54.  
55.   Text5.Text = CommonDialog1.FileName
56.  
57.   vvv = FileLen(CommonDialog1.FileName) 'Объём файла
58.   Text4.Text = vvv
59.   ProgressBar1.Max = vvv + 40
60.  
61.    Do While blnprocessing And Not EOF(1)
62.  
63.     Line Input #F, txt
64.     s1 = s1 + txt + vbCrLf
65.     s11 = s11 + txt + vbCrLf
66.    
67.      
68.     If InStr(1, txt, "idAfterExecute", 1) > 0 And InStr(1, s1, poisk, 1) > 0 Then
69.         Text6.Text = Text6.Text + s1 + vbCrLf
70.         s1 = ""
71.     End If
72.      
73.      
74.     If InStr(1, txt, "idAfterExecute", 1) > 0 Then
75.         count = count + 1
76.         Text1.Text = count
77.         ProgressBar1.Value = Len(s11)
78.         s1 = ""
79.     End If
80.    
81.    
82.    
83.    
84.    
85.    
86.   DoEvents
87.    
88.   Loop
89. ProgressBar1.Value = 0
90.   If InStr(1, Text6.Text, poisk, 1) = 0 Then
91.       Text6.Text = "Не найдено актов с данным словом."
92.   End If
93.   Close #F  'закрытие файла
94.  
95.  blnprocessing = False
96.   Command1.Caption = "Обзор"
97.      
98. End If
99.  
100.    
101.  
102.  
103. End Sub

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

 

Luna

С тех пор, как я осилил Delphi, у меня не осталось проблем. А ещё мои волосы стали мягче и шелковистее.

 

CyberManiac

Жаль, показать не могу, да?

 

мазохиста, не? )

 

kon4aite etu gneluju temu

 

делпхе это бред.

 

Так, хорош холиварить. А то буду стучать модерам.

 

стукач0к?

 

вот чего не хватает браузерам - выделяешь на странице область и нажимаешь "Не показывать эту хрень никогда"