Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctDoubleCliqueSeptante - 1
Public Function DoubleCliqueSeptante()
Dim lfile As Long 'Lecture
Dim ofile As String 'Fichier à ouvrir
Dim ofile2 As String, LFile2 As Long
Dim OFile3 As String, LFile3 As Long
ofile = App.Path & "\tools\greeknt.txt"
ofile2 = App.Path & "\tools\analysemorpho.txt"
OFile3 = App.Path & "\tools\packard.txt"
lfile = FreeFile
LFile2 = FreeFile + 1
LFile3 = FreeFile + 2
Dim erreur
mot = UCase(mot) ' mise en majuscules, selon le format adéquat
'MsgBox mot
If Right(mot, 1) = "J" Then ' pb du s final
mot = Mid(mot, 1, Len(mot) - 1) + "S"
End If
'MsgBox mot, , "mot à chercher dans greeknt"
' trouvons le mot double-cliqué dans le fichier greeknt
' ouverture du fichier greeknt, où se trouve le mot, son code et son origine
Open ofile For Input As #lfile
Do 'début de boucle
Input #lfile, ligne
If Mid(ligne, 1, Len(mot)) = mot Then
Open ofile2 For Output As #LFile2
Write #LFile2, ligne
Close #LFile2
'frmParse.txtanalyse.Caption = frmParse.txtanalyse.Caption & vbCrLf & ligne
End If
Loop Until EOF(lfile)
Close #lfile
Open ofile2 For Input As #LFile2
nput #LFile2, ligne
lose #LFile2
MsgBox ligne, , "ligne"
>> j'ai ma ligne qui a en elle l'analyse précise du mot
je dois décortiquer cette ligne
à tout hasard, je la mets dans un tampon
rmBible.lbltampon.Text = ligne
la ligne est composée comme suit:
MOTFLECHIMOTORIGINE
j'appelle ma fonction pour me donner le CODE et le MOTORIGINE
all ExtraireCode(mot, ligne, code, origine, chercher)
MsgBox mot, , "mot"
MsgBox ligne, , "ligne"
MsgBox code, , "code"
MsgBox origine, , "origine"
MsgBox chercher, , "chercher"
maintenant que je l'ai, je consulte le fichier packard pour décrypter mon code
Open OFile3 For Input As #LFile3
o
nput #LFile3, nouveau
If nouveau = chercher Then
Do
Input #LFile3, nouveau
Open ofile2 For Append As #LFile2
Write #LFile2, nouveau
Close #LFile2
Loop Until nouveau = "" Or nouveau = vbCrLf
'Else
' Open OFile2 For Output As #LFile2
' Write #LFile2, mot & vbCrLf & origine & "Pas d'analyse"
' Close #LFile2
End If
sg2 = InStr(1, nouveau, chercher, vbTextCompare)
oop Until EOF(LFile3)