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
| While Not EOF(1)
'Récupération des données dans des variables
...
Site = PrendreEntre(source, "<site name=" & Chr(34), Chr(34) & "/></target>")'source = ligne en cours du fichier logs (entre<log> et </log>)
...
'Vérifier que les données n'ont pas déjà été stockées au préalable dans la table
...
SiteExiste = False
...
'...table site
indice = 0
While (indice <= (condition)) And (SiteExiste = False)'Sortir de la boucle quand on a parcouru tout le fichier ou que Site de la ligne en cours a déjà été stocké au préalable dans la table
If condition2 = Site Then'je ne rentre pas dans les détails de condition2
SiteExiste = True
End If
indice += 1
End While
...
'On crée les requêtes SQL correspondantes en vue de l'insertion
...
Dim strSQLSite As String = "INSERT into Site(NumSite, Site) VALUES(" & _
CptCleSite & ",'" & Site & "');"
...
'Mise en place et execution de la requête d'insertion dans SITE
If SiteExiste = False And Site <> "0" Then
'Stockage dans un tableau du site pour éviter les doublons
SiteNom(CptCleSite - 1) = Site
cmSQLSite = New SqlCommand(strSQLSite, cnSQL)
cmSQLSite.ExecuteNonQuery()
CptCleSite += 1
End If
end while |
Partager