Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctCorrigerWH - 1
'Option Explicit
Public Function CorrigerWH(texte) As String
ref = frmBible.txtChapitre.Text & ":" & frmBible.txtverset.Text
'texte = Trim(Mid(frmBible.txtPassage.Text, 1, Len(frmBible.txtPassage.Text)))
texte = Mid(texte, Len(ref) + 1, Len(texte))
texte = Trim(texte)
texte = Replace(texte, "}", "}" & vbCrLf, 1)
'If frmBible.cboLivre.Text = "Jean" Then
'remplacement = Mid(remplacement, 1, Len(remplacement))
'End If
corrwh = App.Path & "\tools\corrwh.txt"
lfile = FreeFile
Open corrwh For Output As #lfile
rint #lfile, texte
lose #lfile
rmBible.txtPassage.Text = ""
Open corrwh For Input As #lfile
Do
Line Input #lfile, ligne
If ligne "" Then
ligne = Trim(ligne)
reduction = InStr(1, ligne, " ", vbTextCompare)
passage = Left(ligne, reduction)
frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage
If passage = "* " Then
reduction = InStr(1, ligne, "]")
If reduction = 0 Then
reduction = InStr(3, ligne, " ")
End If
passage = Mid(ligne, 1, reduction)
frmBible.txtPassage.Text = frmBible.txtPassage.Text & passage
End If
Else: GoTo suite:
End If
rmBible.txtPassage.Font = "Symbol"
frmBible.txtPassage = frmBible.txtPassage & passage
uite:
oop While Not EOF(lfile)
lose
exte = frmBible.txtPassage.Text
exte = Replace(texte, "0", "")
exte = Replace(texte, "1", "")
exte = Replace(texte, "2", "")
exte = Replace(texte, "3", "")
exte = Replace(texte, "4", "")
exte = Replace(texte, "5", "")
exte = Replace(texte, "6", "")
exte = Replace(texte, "7", "")
exte = Replace(texte, "8", "")
exte = Replace(texte, "9", "")
nd Function
ublic Sub EnlevNombre()
nd Sub