Tjek om tekst eksistere i en tekst fil.

Filen hedder "mads" og indeholder data om mads, som skal lægges i labels ?

Får at søge i tekst filer, efter hvor navn er lig med søgeord i en mappe, så kan du bruge dette.

Kode:

#1

Korrekt.

#2
Tak :) Der er bare et problem med "For Each File As FileInfo In New DirectoryInfo(C:\test.txt).GetFiles"

Fejlen er i FileInfo & DirectoryInfo.

Men ang hvor filen ligger som jeg har skreven C:\test.txt  Her laver den også en fejl. Men om jeg har skreven det rigtig, eller om det skal være med "C:\test.txt" ved jeg ikke. Men ang de to fejl jeg har oplyst skal jeg skrive noget bestemt i toppen af koden?

Har du kun en fil hvor det hele står i?.

Hvis du kun har en fil hvor det hele står i, så kan du skrive et eksempel får hvad der kan stå i filen.

#4-5

Hvis den bare kan søge i en mappe, efter det navn man søger så vil det også være fint.

Men jeg kan lige smide hvad min kode består af:


Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lines() As String = Nothing
        For Each File As FileInfo In New DirectoryInfo(C:\test.txt).GetFiles
            If Split(IO.File.OpenText(File.FullName).ReadLine, ": ")(1).ToLower = Søgeord.ToLower Then
                Text = IO.File.ReadAllLines(File.FullName)
                Exit For
            End If
        Next
        If lines IsNot Nothing Then
            Label1.Text = lines(0)
            Label2.Text = lines(1)
            Label3.Text = lines(2)
            Label4.Text = lines(3)
        Else
            MsgBox("Navnet blev ikke fundet.", 16)
        End If
    End Sub
End Class

I tekst filen skal der for eksempel stå:



Kode til at søge med:




Kode til at tilføje en person:



Mit eksempel http://madshaupt.dk/tutucode/WindowsApplication1.zip

#7

Tak :) jeg har kigget lidt på koden, men kunne ikke rigtig få den til det jeg vil, så har prøvet med den du har lagt op. og den fungere beder, men jeg har prøvet at gemme en person også derefter søge på personen så kommer den op med en fejl i kilde koden, "If Split(lines(i), ": ")(1).ToLower = TextBox5.Text.ToLower Then" At tilføje en person fungere, men at søge fungere ikke rigtig :(

Problemet blev løst. Jeg skulle slette min nu værne test.txt fil, før den kunne finde ud af det :)

Jeg tror det er fordi at jeg havde lavet en fejl, som jeg først opdaget bagefter jeg havde, lagt det op, så du skal bare downloade det igen. :)

svar

#10
Ja nu så det ud til at fungere mere stabilt. Så må jeg se om jeg kan bruge noget der fra, til mit eksperiment. Takker for din hjælp. Smid svar. :)