Traducteur (suite)

Code:


Public Class Form1

    Dim FileDico As System.IO.StreamReader
    Dim ReadLine As String
    Dim IsWordValid As Boolean = False

    'Traduction de Anglais vers Français
    Private Sub ButEnToFr_Click(sender As System.Object, e As System.EventArgs) Handles ButEnToFr.Click
        IsWordValid = False
        If TBEn.Text.ToLower = "" Then
            MsgBox("text Anglais vide !")
        Else
            TBEn.Text = TBEn.Text.ToLower
            FileDico = New System.IO.StreamReader(My.Computer.FileSystem.CurrentDirectory & "\DicoEn.txt", System.Text.Encoding.Default)
            Do
                ReadLine = FileDico.ReadLine()
                If ReadLine = "[END]" Then
                    If IsWordValid = False Then
                        MsgBox("Mot non référencé")
                    End If
                    Exit Do
                ElseIf ReadLine.Split("=")(1).ToLower = TBEn.Text.ToLower Then
                    TBFr.Text = ReadLine.Split("=")(0).ToLower
                    IsWordValid = True
                    Exit Do
                End If
            Loop
            FileDico.Close()
        End If
    End Sub

    'Traduction de Français vers Anglais
    Private Sub ButFrToEn_Click(sender As System.Object, e As System.EventArgs) Handles ButFrToEn.Click
        IsWordValid = False
        If TBFr.Text.ToLower = "" Then
            MsgBox("text Français vide !")
        Else
            TBFr.Text = TBFr.Text.ToLower
            FileDico = New System.IO.StreamReader(My.Computer.FileSystem.CurrentDirectory & "\DicoEn.txt", System.Text.Encoding.Default)
            Do
                ReadLine = FileDico.ReadLine()
                If ReadLine = "[END]" Then
                    If IsWordValid = False Then
                        MsgBox("Mot non référencé")
                    End If
                    Exit Do
                ElseIf ReadLine.Split("=")(0).ToLower = TBFr.Text.ToLower Then
                    TBEn.Text = ReadLine.Split("=")(1).ToLower
                    IsWordValid = True
                    Exit Do
                End If
            Loop
            FileDico.Close()
        End If
    End Sub
End Class


Code:


oui=yes
non=no
avec=with
chercher=look for
resembler=look like
bonjour=hello
ondulur=ups
inintérompue=unrupted
informatique=computerring
[END]


serge a écrit:
argghhhhhhh j e tourne en rond ........help quand ma fenetre s'envoie je tape"je et il me met "ils/oni" ( au lieu de "ja")
Pourquoi ? pourquoi quand je tape le "je" en 1ere ligne ca me mets en réponse la derniere ligne de mon fichier texte ? Mieux quand j'enleve la derniere ligne de mon fichier txt et quand j'envoie mon programme il ne me met plus rien en reponse dans la 2eme txtbox ? comme si il compter le nombre de caractaéres et la je surnage car se doit etre rien mais je vois pas quoi
merci

La voici mon fichier txt

Re,

polien, pourquoi du code vb pour vider les tb ?

juste laisser vide dans valeur sur l'action modifier les propriétés.

cordialement,

le réparateur de pc

lereparateurdepc a écrit:

Re,

polien, pourquoi du code vb pour vider les tb ?

juste laisser vide dans valeur sur l'action modifier les propriétés.

cordialement,

le réparateur de pc