Программа для поиска с условием, если так можно назвать

[Basic2]

перенес эту тему с другого топика
http://bbs.vbstreets.ru/viewtopic.php?p=6583021#6583021

вот что я сделал сейчас

Код: Выделить всё

Dim s As Long
Private Sub Form_Load()
    Form_Resize
    s = 1
End Sub



Private Sub Form_Resize()
    On Error Resume Next
    rtfText.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200
    rtfText.RightMargin = rtfText.Width - 100
End Sub

Private Sub Command1_Click()
If InStr(s, rtfText, Text1.Text) <> 0 Then
rtfText.SetFocus
rtfText.SelStart = InStr(s, rtfText, Text1.Text) - 1
rtfText.SelLength = Len(Text1.Text)
s = InStr(s, rtfText, Text1.Text) + Len(Text1.Text)
Else
MsgBox "Нет такого числа!!!"
End If
End Sub

посоветуйте пожалуйста что делать дальше..

[Twister]

Слуш, я так понял тебе из файла нужно прочитать? Просто лучше сразу повеситься, чем читать файл в текстовое поле и работать потом с ним... Если каждое число находиться на отдельной строке, то делается это так (будем писать в динамический массив):

Код: Выделить всё

dim s() as string
dim buf as string
dim ff as integer
open "c:\MyFile.txt" for input as #ff
do until eof(ff)
input #ff,buf
redim preserve s(UBound(s)+1)
s(UBound(s))=buf
loop
close #ff

Теперь у нас в массиве S лежат все строки из файла. По ходу загрузки можешь сразу преобразовывать их в числа (только массив объяви ка long)... Дальше дело за тобой.

PS Код писал прямо здесь, если где опечатался - извеняй.
PPS И зря ты в этом разделе тему создал...

[Basic2]

Twister
я пока мало что понимаю в бэйсике.. не мог ты объяснить как твой код связать с моим?!

[Twister]

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

[Basic2]

Twister
можешь просто объяснить куда вставить твой код?

[Twister]

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

[Basic2]

ок, будем работать с массивом!
но че то твой код не пашет ""Run time error 52"

[Twister]

Я тебе дал лишь - каркас кода. Он может и не работать (просто мне чтоб открыть VB надо иди его установить, или выйти из 2000 в XP, но там нет ИНЕТа). Попытаюсь помочь тебе удаленно. На какой строчке ошибка?

PS Хочешь совет - не занимайся тем, до чего не дорос. Передирание и тупое копирование чужого кода без детального его анализа тебя ничему не научит и ничего путнего у тебя не получиться...

[Basic2]

Twister

PS Хочешь совет - не занимайся тем, до чего не дорос. Передирание и тупое копирование чужого кода без детального его анализа тебя ничему не научит и ничего путнего у тебя не получиться...

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

[Twister]

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

[Basic2]

Twister
вот именно что некому!! и я не знаю скока это будет стоить!

[Twister]

Ты сам откуда? Не знаю сколько там в России это будет стоить, но я бы взял за это 1500-2000 тенге (300-400 руб). Уверен, что людей, которые занимаются разработкой ПО на заказ не мало, нужно дишь искать...

PS Ох, нас ЩАС с тобой забанят за то, что не в том разделе демагогию развели...

[Basic2]

Twister
слушай а ты не знаешь где можно скачать исходник блокнота споиском, чтоб мну не мучаться)

[Twister]

ТУТ

[Basic2]

Twister
мля, ничего не нашел, так же как и на яндексе и на рамблере...