Hi Forum,
Ich habe folgendes Problem. Unswar ist dieser Code schlecht.
Bitte um verbesserungen
Programm soll folgendes können
Ich habe folgendes Problem. Unswar ist dieser Code schlecht.
Bitte um verbesserungen
Programm soll folgendes können
- Die in der Textdateien mit ziffernfolgen dargestellten Barcodes sollen am ende in der neuen datei mit dem Produktnamen stehen.Ich weiß ,dass nicht jeses produkt bei Barcoo verzeichnet ist.
VB.NET-Quellcode
- Do
- Dim zeilen() As String = IO.File.ReadAllLines("D:\xy\leb.txt")
- akk += 1
- web.Navigate("http://www.barcoo.com/" & zeilen(akk) & "?source=pb")
- System.Threading.Thread.Sleep(2500)
- Dim noch As String = web.DocumentTitle
- Dim spis() As String = noch.Split("- Preis")
- My.Computer.FileSystem.WriteAllText("D:\prod.txt", spis(0) & vbNewLine, True)
- 'MsgBox(spis(0))
- Loop
