SergT » 29.09.2005 (Чт) 21:40
Private Sub doComma_Click()
Open commaName.Text For Input As #1
'Do While Not EOF(1)
Line Input #1, textline
pos = InStr(1, textline, ",") 'Ищем запятую,
total = 0
results.Text = textline + Chr(13) + Chr(10)
While pos > 0
parseleft = Left(textline, pos - 1) ' Get left word.
parseleft = Trim(parseleft)
parseNum = Val(parseleft)
total = total + parseNum
textline = Right(textline, Len(textline) - pos)
results.Text = results.Text + textline + Chr(13) + Chr(10)
pos = InStr(1, textline, ",") ' Find ,
Wend
textline = Trim(textline)
parseNum = Val(textline)
total = total + parseNum
results.Text = results.Text + Chr(13) + Chr(10) + "the total is : " + Str(total)
'Loop
Close #1
End Sub
Или еще вариант
Private Sub doIni_Click()
Open ininame.Text For Input As #1
Do While Not EOF(1)
Line Input #1, textline
rawOutput = rawOutput + textline + Chr(13) + Chr(10)
pos = InStr(1, textline, "=") ' Find =
If pos Then
parseleft = Left(textline, pos - 1) ' Get left word.
parseleft = Trim(parseleft)
parseright = Right(textline, Len(textline) - pos) ' Get right word.
parseright = Trim(parseright)
resultOutput = resultOutput + parseleft + " is " + parseright + Chr(13) + Chr(10)
End If
Loop
results.Text = rawOutput + Chr(13) + Chr(10) + resultOutput
Close #1
End Sub
Вариантов - море. Я взял первый попавшийся в поиске..
PS! Chr(13)+Chr(10) -это конец строки ( перевод строки)
Короче- Разбираем шаг за шагом файл на строки и каждую строку проверяем:
if InStr(1, textline, "Иванов,Иван,Иванович"")>0 then _
MyString=mid(textline,1,Len(textline)-2) 'Len(textline)-длина строки без двух последних непечатных символов Chr(13) + Chr(10)
Обработка пройдет достаточно быстро, Но.. я бы воспользовался Access или его таблицами. Поиск - поиском, а вот дальнейшая обработка, хранение. А если шнур из розетки выскочил? Access мог бы выручить
Л. Толстой, «зачем обдумывать обдуманное, бери готовое и иди дальше, в этом сила человечества»
"Всё в наших руках, поэтому их нельзя опускать" (Коко Шанель)
, но хочется с вашей помощью выбрать наиболее оптимальный вариант.
, удачи
