Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireATFrN - 2
texte = Replace(texte, "2b)", vbCrLf & "2b) ")
texte = Replace(texte, "2c)", vbCrLf & "2c) ")
texte = Replace(texte, "2d)", vbCrLf & "2d) ")
texte = Replace(texte, "2e)", vbCrLf & "2e) ")
texte = Replace(texte, "2f)", vbCrLf & "2f) ")
texte = Replace(texte, "3a)", vbCrLf & "3a) ")
texte = Replace(texte, "3b)", vbCrLf & "3b) ")
texte = Replace(texte, "3c)", vbCrLf & "3c) ")
texte = Replace(texte, "3d)", vbCrLf & "3d) ")
texte = Replace(texte, "3e)", vbCrLf & "3e) ")
texte = Replace(texte, "3f)", vbCrLf & "3f) ")
texte = Replace(texte, "1)", vbCrLf & "1) ")
texte = Replace(texte, "2)", vbCrLf & "2) ")
texte = Replace(texte, "3)", vbCrLf & "3) ")
texte = Replace(texte, "4)", vbCrLf & "4) ")
texte = Replace(texte, "5)", vbCrLf & "5) ")
texte = Replace(texte, "6)", vbCrLf & "6) ")
texte = Replace(texte, " ", " ")
If Left(strong, 3) = "000" Then strong = Mid(strong, 4, Len(strong))
If Left(strong, 2) = "00" Then strong = Mid(strong, 3, Len(strong))
If Left(strong, 1) = "0" Then strong = Mid(strong, 2, Len(strong))
mothebreu = Replace(mothebreu, "f", "j")
mothebreu = Replace(mothebreu, "c", "f")
mothebreu = Replace(mothebreu, ":", "'")
mothebreu = Replace(mothebreu, ";", "'")
mothebreu = Replace(mothebreu, "Ò", ".")
mothebreu = Replace(mothebreu, "]", ".")
mothebreu = Replace(mothebreu, "x", "c")
mothebreu = Replace(mothebreu, "!", "~")
mothebreu = Replace(mothebreu, "@", "!")
mothebreu = Replace(mothebreu, "$", "#")
mothebreu = Replace(mothebreu, "/", "o")
mothebreu = Replace(mothebreu, ">", "/")
mothebreu = Replace(mothebreu, "¿", "")
'¿
frmResultatStrong.lblNStrong.Caption = "Strong : " & strong
frmResultatStrong.Font = "Bwhebb"
frmResultatStrong.FontSize = 16
frmResultatStrong.lblMotH.Caption = Mid(mothebreu, 2, Len(mothebreu))
texte = Replace(texte, " ", "")
frmResultatStrong.txtStrong.Text = texte
If frmAutomatos.Visible = False Then
frmResultatStrong.Show
End If
ofile = App.Path & "\tools\temp2.txt"
lfile = FreeFile
Open ofile For Output As #lfile
Print #lfile, texte
Close
End Function