Programma laten checken of text in een bestand Ja of Nee is. Dan then ...

[nickyboyb]

De titel zegt het eigenlijk al. Weet iemand hoe je visual basic kan laten checken of de text in een bestand Ja of Nee is.

Greetzzzzz en alvast bedankt!!

 

[edmoor]

Ik denk dat je wat duidelijker moet maken wat je precies wilt.
Nu is het antwoord: Bestand openen, regel inlezen, kijk of er Ja of Nee in de ingelezen regel staat, bestand sluiten.

 

[nickyboyb]

daarna moet er een then komen met laten we het even simpel houden een msgbox"Hallo!"
(ik ga het niet met die msgbox doen maar wat ik erna ga doen is nogal ingewikkeld

Greetzzzz

 

[edmoor]

Select Case LCase(IngelezenRegel)
    Case "ja"
        MsgBox "Hallo"
    Case "nee"
        MsgBox "Niet Hallo"
    Case Else
        MsgBox "Iets anders"
End Select

 

[nickyboyb]

Danku

 

[nickyboyb]

@edmoor, alleen begrijp ik niet helemaal hoe het gaat, hij moet de text uitlezen uit een .txt bestand hoe doe ik dat dan precies??

alvast bedankt

 

[edmoor]

Daarom vroeg ik je dus om aan te geven wat je precies wilt.
Wat is het voor een txt bestand? Wat staat er in?

 

[nickyboyb]

eerder in mijn programma is een functie die het woord 'ja' laat schrijven naar het .txt bestand. Ik wil graag dat zoals in jou code als er Ja staat msgbox"blabla" nee msgbox "ditdat" en else msgbox"koekoek". Dus heel je code was handig alleen moet het wel uitgelezen worden van het .txt bestand. Laten we zeggen locatie
"C:\Program blabla\1.txt")

Ty!

 

[edmoor]

Daar zijn meerdere mogelijkheden voor. Dit is er 1 van en leest alle regels van een bestand:

Imports System
Imports System.IO

Class Test
    Public Shared Sub Main()
        Try
            Using sr As New StreamReader("C:\Program blabla\1.txt")
                Dim line As String
                Do
                    line = sr.ReadLine()
                    If Not (line Is Nothing) Then
			Select Case LCase(line)
			    Case "ja"
			        MsgBox "Hallo"
			    Case "nee"
			        MsgBox "Niet Hallo"
			    Case Else
			        MsgBox "Iets anders"
			End Select
                    End If
                Loop Until line Is Nothing
            End Using
        Catch e As Exception
            MsgBox("Het bestand kon niet worden gelezen: " & e.Message)
        End Try
    End Sub
End Class

 

[JoZ1]

@edmoor: Misschien raakt de TS ervan in de war als je je code in een nieuwe class + sub zet.

[cpp]Try
Dim sr As New IO.StreamReader("C:\Users\Jos\Desktop\test.txt")
Dim line As String
Do
line = sr.ReadLine()
If line.Length <> 0 Then

Select Case LCase(line)
Case "ja"
MsgBox("Hallo")
Case "nee"
MsgBox("Niet Hallo")
Case Else
MsgBox("Iets anders")
End Select
End If
Loop Until line.Length <> 0
sr.Close()
Catch ex As Exception
MsgBox("Het bestand kon niet worden gelezen: " & ex.Message)
End Try[/cpp]

 

[edmoor]

Zo kan het ook en is inderdaad wat eenvoudiger :d