Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireBHS - 2
ElseIf livre = "Michée" Then
passage = "Mic" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Nahoum" Then
passage = "Nah" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Habaquq" Then
passage = "Hab" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Sophonie" Then
passage = "Sop" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Aggée" Then
passage = "Agg" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Zacharie" Then
passage = "Zac" & "-" & chapitre & "-" & verset & "-"
ElseIf livre = "Malachie" Then
passage = "Mal" & "-" & chapitre & "-" & verset & "-"
Else
passage = MsgBox("Vous n'avez pas sélectionné de livre !", vbExclamation, "Quel verset désirez-vous
?")
Exit Function
End If
' fin de la détermination du passage
' recherche du verset (le passage)
Open fichier For Input As #lfile
lose
Do
Input #lfile, ligne
If Left(ligne, Len(passage)) = passage Then
frmBible.txtPassage.Text = Mid(ligne, Len(passage) + 1, Len(ligne))
Exit Do
End If
Loop While Not EOF(lfile)
lecture droite à gauche
nverse = StrReverse(frmBible.txtPassage.Text)
rmBible.txtPassage.Text = inverse
translitération fichier d'origine > format police OLBHEB
assage = frmBible.txtPassage.Text
assage = Replace(passage, ".", " ", 1, , vbTextCompare)
bien entendu, je commence par la chaîne de caractère la plus longue
pour le remplacement, puis la plus petite
Attention : le remplacement d'une lettre finale oblige à l'insertion
d'un espace supplémentaire, pour faire coupure avec le mot suivant
vav avec espace
assage = Replace(passage, "v ", "w ", , , vbTextCompare)
aleph avec espace
assage = Replace(passage, "` ", "a ", , , vbTextCompare)
assage = Replace(passage, " `", " a", , , vbTextCompare)
tsadé final
tsadé
assage = Replace(passage, " &", " U", , , vbTextCompare)
tsadé
assage = Replace(passage, "&", "u", , , vbTextCompare)
mem final
assage = Replace(passage, " m", " M", , , vbTextCompare)
kaf final
assage = Replace(passage, " k", " K", , , vbTextCompare)
pé final
assage = Replace(passage, " p", " P", , , vbTextCompare)
noun final
assage = Replace(passage, " n", " N", , , vbTextCompare)
ayin
assage = Replace(passage, "j", "e", , , vbTextCompare)
samekh
assage = Replace(passage, "$", "o", , , vbTextCompare)