Hej.
Håller på med ett litet program till jobbet.
Det kommer en textfil, *.txt
Där finns ett ärenden som ska plockas ut enskilt.
Vid varje nytt ärenden finns en avskiljare, <-- av sådan typ.
Nu säger vi såhär
rsdfad1 5
rasdfd2 5
rsdfad3 5 <-- den vill jag plocka ut
rasdfd4 <-- 5 ---- den vill jag plocka ut.
rasdfd13 55
rasdfd44 54
rsdfad55 55 <-- den vill jag plocka ut
rasdfd43 <-- 56 -- den vill jag plocka ut
rasdfd13 55
rasdfd44 54
rsdfad55 55 <-- den vill jag plocka ut
rasdfd43 <-- 56 -- den vill jag plocka ut
Sen håller det på sådär i ett par år. Hur gör jag det här på lättas sätt, jag är väldigt ny på VB kanske ska tillägga, så förklara grundligt.
För läsa textfilen använder jag mig utav
Set cRead = CreateObject("Scripting.FileSystemObject")
Set oRead = cRead.OpenTextFile(tRead, ForReading, True)
Hej kommer en bit av koden
Jagh vill ta ut personnr, namn, belopp o.s.v. och spara den i en rad i en databas.
OBS! Om det inte ser vettigt ut, kopiera det till ett textdocument, (*.txt)
Fältsektion 0000-00 5555-55-55
Box 555
555 55 DaseStan
Expeditionstid: 55555 - 5555
Telefonnummer: 555-55 55 55
Telefaxnummer: 555-55 55 55
Script Hem AB
BOX 5555
55 55 DASETOWN
Utdrag ur databasen avseende:
555555-5555
Fredriksson, Fredrik
Fredriksgata 55 F 555 55 Fredrikstad
-------------------------------------------------------------------------------
Stor sak allmänna mål: 55
Fordonsskatt 55
Skuld i enskilda mål: 55 555 (antal mål: 5)
Diarienr: U-555555-55 Begränsad tillgångsundersökning begärd
Sökande/Ombud HANDELSBANKEN FINANS AB(PUBL) KRONOR 55 555
Åtgärder:
Förfrågan till raksaken
FREDRIKSFONDEN
Fältsektion 0000-00 5555-55-55
Box 555
555 55 DaseStan
Expeditionstid: 55555 - 5555
Telefonnummer: 555-55 55 55
Telefaxnummer: 555-55 55 55
Script Hem AB
BOX 5555
55 55 DASETOWN
Utdrag ur databasen avseende:
555555-5555
Fredriksson, Fredrik
Fredriksgata 55 F 555 55 Fredrikstad
-------------------------------------------------------------------------------
Stor sak allmänna mål: 55
Fordonsskatt 55
Skuld i enskilda mål: 55 555 (antal mål: 5)
Diarienr: U-555555-55 Begränsad tillgångsundersökning begärd
Sökande/Ombud HANDELSBANKEN FINANS AB(PUBL) KRONOR 55 555
Åtgärder:
Förfrågan till raksaken
FREDRIKSFONDEN
Mvh Anders.