Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireTSK - 1
Public Function LireTSK(livre, chapitre, verset) As String
frmParse2.Text1.Text = ""
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
lfile = FreeFile
Dim fichier$, chercherverset$, texte$
If livre = "1 Corinthiens" Then
fichier = "essaico.txt"
End If
ofile = App.Path & "\modules\dictionnaires\tsk\" & fichier
'chercherverset = Trim(chapitre) & "v" & Trim(verset)
If Val(chapitre) < "10" Then
chapitre = "0" & chapitre
End If
If Val(verset) < "10" Then
verset = "0" & verset
End If
chercherverset = Trim(chapitre) & ":" & Trim(verset) & ":00"
On Error GoTo erreur:
Open ofile For Input As #lfile
o
Input #lfile, ligne
If ligne = chercherverset Then
' pour que le verset recherché soit exact
Do
Loop
End If
oop Until EOF(lfile)
lose #lfile
rreur:
xit Function
Input #lfile, ligne
If IsEmpty(ligne) = True Then
'If Len(ligne) = "" Then
GoTo apres:
Else
frmParse2.Text1.Text = frmParse2.Text1.Text & " " & ligne
End If
pres:
exte = frmParse2.Text1.Text
lose #lfile
Load frmTSK
frmTSK.Show
frmTSK.lblpassage = livre & " " & chapitre & " : " & verset & " - références "
frmTSK.Text.Text = texte
nd Function