Ik heb een opdrachtje gekregen die ik in vb6 moet voltooien, namelijk de volgende: ik moet een .cfg bestand dus een ascii file inlezen en de waarden die daaruit komen moet ik kunnen sorteren.
De gegevens in het ascii bestand zijn, Intern telefoonnummer en de naam van de persoon die dat nummer heeft.
Nou is het probleem dat die gegevens niet allemaal hetzelfde zijn opgemaakt wat het moeilijk maakt om alles te scheiden en te kunnen sorteren.
Ben zelf een vb noob maar ik heb de search hier helemaal doorgespit maar kom niet iets herkenbaars tegen. Hier een stukje van die ascii file:
[LocalSystem]
0=700|Centrale
1=
2=741|Altenrath John
3=793|Arentsen Joke
Dat is nog maar het begin, er zijn hele rare combinaties in dit bestand zoals:
334|Alarm Bedrijfs=1
[BUM-370|Tekenkamer]
2=741|Altenrath John
[BUM-3990|DEUROPENER]
53=872|Schulingkamp Diana
Met mijn noobische vb kennis had ik zoiets gemaakt:
Private Sub Form_Load()
Open "H:/telefoonboek.cfg" For Input As #1
While Not EOF(1)
Line Input #1, Temp
telefoonnummer = Left(Temp, (InStr(Temp, "=")) + 3)
naam = Right(Temp, (InStr(Temp, "=")) + 3)
DataEnvironment1.rstelefoonlijsten.AddNew
DataEnvironment1.rstelefoonlijsten("telefoonnummer") = telefoonnummer
DataEnvironment1.rstelefoonlijsten("naam") = naam
DataEnvironment1.rstelefoonlijsten.Update
Wend
Close #1
End Sub
Mijn vraag is of jullie hier es commentaar op willen geven en advies in de goede richting.
De gegevens in het ascii bestand zijn, Intern telefoonnummer en de naam van de persoon die dat nummer heeft.
Nou is het probleem dat die gegevens niet allemaal hetzelfde zijn opgemaakt wat het moeilijk maakt om alles te scheiden en te kunnen sorteren.
Ben zelf een vb noob maar ik heb de search hier helemaal doorgespit maar kom niet iets herkenbaars tegen. Hier een stukje van die ascii file:
[LocalSystem]
0=700|Centrale
1=
2=741|Altenrath John
3=793|Arentsen Joke
Dat is nog maar het begin, er zijn hele rare combinaties in dit bestand zoals:
334|Alarm Bedrijfs=1
[BUM-370|Tekenkamer]
2=741|Altenrath John
[BUM-3990|DEUROPENER]
53=872|Schulingkamp Diana
Met mijn noobische vb kennis had ik zoiets gemaakt:
Private Sub Form_Load()
Open "H:/telefoonboek.cfg" For Input As #1
While Not EOF(1)
Line Input #1, Temp
telefoonnummer = Left(Temp, (InStr(Temp, "=")) + 3)
naam = Right(Temp, (InStr(Temp, "=")) + 3)
DataEnvironment1.rstelefoonlijsten.AddNew
DataEnvironment1.rstelefoonlijsten("telefoonnummer") = telefoonnummer
DataEnvironment1.rstelefoonlijsten("naam") = naam
DataEnvironment1.rstelefoonlijsten.Update
Wend
Close #1
End Sub
Mijn vraag is of jullie hier es commentaar op willen geven en advies in de goede richting.
[ Voor 6% gewijzigd door Verwijderd op 25-09-2003 08:57 ]