text doorzoeken met waarde die in textbox is ingegeven

Status
Niet open voor verdere reacties.
Werkt dit misschien?
[CPP]
If Not (New DirectoryInfo(FilePath)).Exists Then
MsgBox("Map bestaat niet!")
Exit Sub
End If
If Not (New FileInfo(FullFilePath)).Exists Then
MsgBox("Bestand bestaat niet!")
Exit Sub
End If[/CPP]

[edit]
Run je het programma misschien vanaf een netwerkschijf? Ik zag dat meerdere mensen dan problemen hadden...

Misschien ook even hiernaar kijken: http://www.dreamincode.net/forums/topic/269902-help-with-checking-if-a-file-exists/
[/edit]
 
Laatst bewerkt:
zelfde probleem :( met ook weer bij debugging dat het bestand effectief in de variabel is opgeslagen

edit

of kan het een probleem zijn dat de map in read only blijft staan ook al zet ik hem om naar full access?
 
Laatst bewerkt:
ik heb naar de link gekeken en ik zie geen enkel verschil, ook al verplaats ik de map met bestand naar netwerkschijf of andere schijven in mijn pc, ik blijf dezelfde foutmelding krijgen :(
 
En als je dit eens probeert:
[CPP] Dim Dir As New DirectoryInfo(FilePath)
For Each F As FileInfo In Dir.GetFiles
If F.Name = "test.txt" Then
MsgBox("Bestand gevonden.")
End If
Next[/CPP]

Wordt het bestand dan wel gevonden?
 
Maakt niet zo heel veel uit. Ik had hem onder "Dim FullFilePath As String = Path.Combine(FilePath, "test.txt")" gezet.
 
nu werkt het wel goed en ik krijg ook de melding dat het gevonden is
echter krijg ik nu de foutmelding dat IndexOutofrangeException
Index was outside the bounds of the array
 
Zoiets?
[CPP]Dim Lines() As String = Inhoud.Split(New Char() {vbNewLine, Chr(13)})
For i As Integer = 0 To Lines.Count - 1 Step 1
If Lines(i).Split(";").Count < 12 Then
Continue For
End If
If Lines(i).Split(";")(7) = TxtAdminUser.Text Then
MsgBox("Found!")
End If
Next[/CPP]

[edit]
Dit als bestandscheck is btw netter voor de gebruiker (alleen melding als het niet klopt):
[/edit]
[CPP] Dim Dir As New DirectoryInfo(FilePath)
Dim Found As Boolean = False
For Each F As FileInfo In Dir.GetFiles
If F.Name = "test.txt" Then
Found = True
End If
Next
If Not Found Then
MsgBox("Bestand bestaat niet!")
Exit Sub
End If[/CPP]
 
Laatst bewerkt:
wow
Nu werkt het, maar dan moet ik er rekening mee houden dat die kleiner dan op tijd verhoogd wordt of vergis ik me?

hoe krijg ik nu de volledige lijn in die messagebox of notepad?
 
Wat bedoel je precies? De '12' is gebaseerd op de gegevens die je eerder hebt gegeven... De '7' bij het splitten trouwens ook.

[CPP]Msgbox(Lines(i))[/CPP](even uit de losse pols)
ipv
[CPP]Msgbox("Found!")[/cpp]
 
je hebt een goeie losse pols het werkt super bedankt,

nu nog even stoeien hoe ik dit deftig leesbaar kan krijgen dus alle ; eruit en misschien alles onder elkaar krijgen
maar dat zal voor morgen zijn vrees ik tenzij je uit je losse pols daar ook nog een oplossing voor hebt
 
Nu ook nog vanaf mn telefoon :p

ik denk zoiets:
[CPP]
Dim Line() as string = Lines(i).split(";")
Msgbox(Line(0) & " " & Line(1))
[/CPP]
en zo verder.

Succes!
MartinJM
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan