1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
|
Dim caratere_autorise As String = " ABCDEFGHIJKLMNOPQRSTUVWXYZéèçàêâûùîôyÄËÏÏÜäëïöüÂÊÎÔÛù"
txt_sql = "SELECT * FROM T_Mots ;"
Dim CdeSelectMot As New OleDb.OleDbCommand(txt_sql, ConnectionBase)
Dim DAdaptMots As New OleDb.OleDbDataAdapter(CdeSelectMot)
txt_sql = "INSERT INTO T_Mots (Mot, DateSaisie) VALUES (?,?);"
Dim CdeInsertMot As New OleDb.OleDbCommand(txt_sql, ConnectionBase)
CdeInsertMot.Parameters.Add(New OleDb.OleDbParameter("Param1", OleDb.OleDbType.LongVarWChar, 0, "Mot"))
CdeInsertMot.Parameters.Add(New OleDb.OleDbParameter("Param2", OleDb.OleDbType.Date, 0, "DateSaisie"))
DAdaptMots.InsertCommand = CdeInsertMot
ConnectionBase.Open()
DAdaptMots.Fill(DataSetSGActeMot, "T_Mots")
DAdaptMotsDuDoc.Fill(DataSetSGActeMot, "T_Mots_Du_Doc")
DAdaptMotsExlus.Fill(DataSetSGActeMot, "T_Mots_Exlus")
ConnectionBase.Close()
Dim DTableMots As DataTable = DataSetSGActeMot.Tables("T_Mots")
Dim LigneResultat() As DataRow
Dim LigneMot As DataRow
Dim LigneMotDuDoc As DataRow
For b = 1 To Len(RTB_resumé.Text)
c = InStr(UCase(caratere_autorise), UCase(Mid(RTB_resumé.Text, b, 1)))
If c = 0 Then
Mid(RTB_resumé.Text, b, 1) = " "
End If
Next
'------- anticipé
'retrait du point cad ". "
c = InStr(RTB_resumé.Text, ". ", CompareMethod.Text)
Do While c > 0
Mid(RTB_resumé.Text, c, 1) = " "
c = InStr(RTB_resumé.Text, ". ", CompareMethod.Text)
Loop
'mise ne minuscule
RTB_resumé.Text = UCase(RTB_resumé.Text)
' supression des mots indesirable
RTB_resumé.Text = LTrim(RTB_resumé.Text)
RTB_resumé.Text = RTB_resumé.Text & " "
Form1.RTB_Origine.Text = RTB_resumé.Text
'-----traitement des mots restant
'recherche de la pertinence des mots restant (nbre de fois present)
Do While Len(RTB_resumé.Text) > 0
'Traitement des mot inconnu à la base
c = InStr(RTB_resumé.Text, " ", CompareMethod.Text)
If c > 1 Then
mot_trouve = Mid(RTB_resumé.Text, 1, c - 1)
a = ""
For d = 1 To Len(mot_trouve)
a = a & " "
Next
Mid(RTB_resumé.Text, 1, Len(mot_trouve)) = a
a = a & " "
c = InStr(RTB_resumé.Text, " " & mot_trouve & " ", CompareMethod.Text)
Do While c > 0
Mid(RTB_resumé.Text, c, Len(mot_trouve) + 2) = a
c = InStr(RTB_resumé.Text, " " & mot_trouve & " ", CompareMethod.Text)
Loop
mot_trouve = UCase(mot_trouve)
'verifier que le mot fait partie de la liste des mots EXCLU
DateSaisie = Now
LigneResultat = DTableMotExclus.Select("Mot_Exlu like '" & mot_trouve & "'")
If LigneResultat.Count = 0 Then
'verifie que le mot fait partie de la liste des mots
LigneResultat = DTableMots.Select("Mot like '" & mot_trouve & "'")
If LigneResultat.Count = 0 Then
LigneMot = DTableMots.NewRow()
LigneMot("Mot") = mot_trouve '(LigneResultat(0).Item(0))
LigneMot("DateSaisie") = Format(DateSaisie, "dd/MM/yyyy H:mm:ss")
DTableMots.Rows.Add(LigneMot)
End If
End If
End If
RTB_resumé.Text = LTrim(RTB_resumé.Text)
Loop
LigneResultat = DTableMots.Select("", "", DataViewRowState.Added)
'For Each LigneMot In LigneResultat
' MsgBox(LigneMot("Mot"))
' MsgBox(LigneMot("DateSaisie").ToString)
'Next
'DAdaptMots.Update(DataSetSGActeMot, "T_Mots")
DAdaptMots.Update(LigneResultat) |
Partager