15
Январь
2011
Как найти в строке нужный текст
Как найти в строке нужный текст
Dim FN%, SPdel As Variant, txt$
Dim a1 As Variant, a2 As Variant
Private Sub Command1_Click()
FN = FreeFile
Open "1.txt" For Input As #FN
While Not EOF(FN)
Line Input #FN, txt
SPdel = Split(txt, ":")
Select Case SPdel(0)
Case "A1": a1 = SPdel(1)
Case "A2": a2 = SPdel(1)
End Select
Wend
Close #FN
Print a1, a2
End Sub