Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAvantLireStrong - 1
Option Explicit
ublic Function AvantLireStrong(mot)
im corrwh$, phrase$, lfile, premierespace, deuxiemeespace, numéro, nstrong$
orrwh = App.Path & "\tools\corrwh.txt"
file = FreeFile
Open corrwh For Input As #lfile
o
nput #lfile, phrase
If Left(phrase, Len(mot)) = mot Then Exit Do
oop While Not EOF(lfile)
On Error Resume Next
remierespace = InStr(1, phrase, " ", vbTextCompare)
uméro = Trim(Mid(phrase, premierespace, (Len(phrase) + premierespace + deuxiemeespace) - 2))
euxiemeespace = InStr(1, numéro, " ", vbTextCompare)
strong = Left(numéro, Val(deuxiemeespace))
ot = Trim(nstrong)
nd Function