Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctEpurerLSG - 1
Public Function EpurerLSG(recherche)
Dim lfile As String
Dim texte As String
Dim ligne As String
Dim ofile, finligne
' affectation variables
lfile = App.Path & "\tools\corrigerneg.txt"
texte = frmBible.txtPassage
' on enlève la ponctuation dans le verset pour ne pas s'emmêler les pinceaux
'texte = Replace(texte, ",", "")
'texte = Replace(texte, ".", "")
'texte = Replace(texte, ";", "")
'texte = Replace(texte, "!", "")
'texte = Replace(texte, "'", "")
'on commence par la chaîne la plus longue
'* ceci enlève le code de l'analyse du TEMPS du verbe et le met sur une ligne, tout seul
' on remplace " (" par des retours charriot
' on remplace ") " par des retours charriot
' on remplace "> " par des retours charriot
texte = Replace(texte, "(", " " & vbCrLf)
texte = Replace(texte, ")", " " & vbCrLf)
texte = Replace(texte, "> ", ">" & vbCrLf)
texte = Replace(texte, ", ", "," & vbCrLf)
ofile = FreeFile
Open lfile For Output As #ofile
rint #ofile, texte
lose
rmBible.txtPassage.Text = ""
le texte corrigeneg est maintenant prêt à être relu en tenant
compte des < qui détermine le début du chiffre
le but du jeu est de lire ce qu'il y avant
file = FreeFile
Open lfile For Input As #ofile
o
Line Input #ofile, ligne
If InStr(1, ligne, "