/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Find dato i .txt fil
Fra : Danlamp Teknik


Dato : 21-05-01 08:28

Hejsa
Jeg har en Fødselsdag.txt fil som indeholder :

12-07-69, "Test 1"
11-06-71, "Test 2"
10-06-49, "Test 3"
OSV.

Så har jeg noget kode der skal søge .txt filen igennem for at se om der er
en dato der passer sammen.

Dim Dato As Date
Dim Filnummer As Integer
Dim FilNavn As String
Dim Fødelsdag As String
Dim Navn As String
Text1.Text = Format(expression:=Now(), Format:="dd-mm")
Filnummer = FreeFile
FilNavn = "C:\Fødselsdag.txt"
Open FilNavn For Input As #Filnummer
Do Until EOF(Filnummer)
Input #Filnummer, Fødselsdag, Navn
Loop
If Left(String:=Fødselsdag, Length:=5) = Text1.Text Then
Msgbox "Dato ok"
End If
Close #Filnummer

Selv om jeg ved at der er en dato der passer, finder programmet den ikke,
med mindre at datoen er den sidste dato i min .txt fil, så finder programmet
den.
Er der nogle der kan sige mig hvad jeg har lavet forkert.

Henrik



 
 
Tomas Christiansen (21-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 21-05-01 09:53

Danlamp Teknik skrev:
> Input #Filnummer, Fødselsdag, Navn
> Loop
> If Left(String:=Fødselsdag, Length:=5) = Text1.Text Then
> Msgbox "Dato ok"
> End If
> Close #Filnummer
....
> Selv om jeg ved at der er en dato der passer, finder programmet den ikke,
> med mindre at datoen er den sidste dato i min .txt fil, så finder
programmet
> den.

Flyt "Loop" ned mellem "End If" og "Close #Filnummer".
Du ønsker jo netop at checke for HVER linie i filen, og ikke først efter at
hele filen er læst igennem.

-------
Tomas



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408893
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste