Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAnalyseVulgate - 1
Public Function AnalyseVulgate(mot)
Dim motr$, mott$
'interrogation internet Words
'If frmBible.cboVersion.Text = "Vulgate" And frmBible.optunbound.Value = True Then
'frmBrowser.cboAddress.Text = "http://lysy2.archives.nd.edu/cgi-bin/words.exe?" & mot
'Exit Function
'interrogation Jeanneau / Collatinus
If frmBible.cboVersion.Text = "Vulgate" Then
frmBrowser.cboAddress.Text = "http://collatinus.fltr.ucl.ac.be/jcoll.php?forme=m:" & mot
frmBrowser.Caption = "Analyse Collatinus - Jeanneau"
End If
' *** autres possibilités
' dictionnaire latinogallicum : http://colet.uchicago.edu/cgi-bin/search2e?headword=" & Mot & "&wor
d=" & Mot & "&CONJUNCT=PHRASE&DISTANCE=3&PROXY=or+fewer&OUTPUT=conc&SYSTEM_DIR=%2Fprojects%2Fartflb
%2Fdatabases%2Fartfl%2Fdicos%2Festienne%2Ffulltext%2FIMAGE%2F
' recherche ancienne latin français : "http://dictionaries.travlang.com/LatinFrench/dict.cgi?query=
" & mot & "& Max = 50"
'If frmBible. Then
' je tente de trouver une définition au mot
' motr = Trim(frmBible.txtPassage.SelText)
' motr = LCase(motr)
' motr = Replace(motr, ".", "")
' motr = Replace(motr, ":", "")
' motr = Replace(motr, ";", "")
' motr = Replace(motr, ",", "")
' motr = Replace(motr, "!", "")
' motr = Replace(motr, "?", "")
' Call LatinFrancais(motr, mott)
' je tente de l'analyser
'Call AnalyserLatin(mot, Resultat)
'mot = MsgBox(Resultat & vbCrLf & "Définition : " & mott)
'End If
' interrogation Unbound
'If frmBible.optWeb.Value = True Then
'mot = Replace(mot, "\", "")
'mot = Replace(mot, "j", "s")
'mot = Replace(mot, ")", "")
'mot = Replace(mot, "(", "")
'mot = Replace(mot, "|", "")
'mot = Replace(mot, "=", "")
'mot = Replace(mot, ".", "")
'mot = Replace(mot, ";", "")
'mot = Replace(mot, "$", "")
'mot = Replace(mot, ":", "")
'frmBrowser.cboAddress.Text = "http://www.perseus.tufts.edu/cgi-bin/morphindex?lang=latin&lookup="
& mot
'End If
End Function