Vycitanie z txt a zapis do xls – Visual Basic – Fórum – Programujte.com

Vo VB6 by som chcel vediet ako zapisat skript tak aby :
1.otvor subor (subor.txt) ktory je ulozeny na c:\vystup\subor.txt
2.vyhladaj v nom text z nazvom <$vystup>, pred ktorym sa bude nachadzat 7 miestne cislo a to cislo skopiruj a uloz do vystup.xls na d:\vystup\vystup.xls
Dik

Otevření a čtení souboru

Hledání v řetězci

Ukázka práce s Excel XLS

Private Sub Command1_Click()
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long

nFileNum = FreeFile
Open "C:\Missler\Config\top.dgi" For Input As nFileNum
lLineCount = 1
Do While Not EOF(nFileNum)
   Line Input #nFileNum, sNextLine
   sNextLine = sNextLine & vbCrLf
   sText = sText & sNextLine
Loop
Text1.Text = sText
Close nFileNum
End Sub

Tak takto som zacal ale v dalsom kroku si neviem rady.A to najst skript na vyhladani, v tom textboxe, hodnotu ktora je medzi textami..napr kk 00 ss   - vyhladaj hodnotu medzi kk a ss