esriture dans un fichierRésolu

Question

j'ai un texte qui contient la chaine " je suis l'eleve n 1"
je ve ecrire dans un 2 eme texte juste le n (1)
je ne sais pas comment parcourir la liqne par caractere et comment m'arreter dans l'ecriture merci

PCPT · Accepted Answer

salut

Private Sub Command1_Click()
    Dim Pos1 As Integer, Pos2 As Integer
    Dim Str As String
    
    Str = LCase("...:1] INFO FTP anonymous FTP [**] [Classification: Not Suspicious Traffic] [Priority:3] 12/04-13:5...")
        'on convertie de la cha&#238;ne en minuscule (au cas o&#249;...)
    
    Pos1 = InStr(Str, "priority:") 'retourne la position du "p"
    
    If Pos1 < 1 Then MsgBox "Erreur 1!": Exit Sub
    
    Pos2 = InStr(Pos1 + 1, Str, "]")
    If Pos2 < 1 Then
        MsgBox "Erreur 2!"
    Else
        '9 = taille de "priority:"
        MsgBox Mid(Str, Pos1 + 9, Pos2 - Pos1 - 9) ' prend le caract&#232;re entre la fin de "priority:" et le "]"
    End If
End Sub

PCPT

Zlub · Answer

Salut samisahliess, Si tu es certain que la chaîne se termine par " n xxx" où xxx est un chiffre alors tu peux tester ceci Dim pos As Integer Dim str As String str = "je suis l'eleve n 1" pos = InStrRev(str, " ") ' cherche le premier espace en partant de la droite (donc le dernier) If pos < 1 Then MsgBox "Erreur !" Else MsgBox Mid(str, pos) ' coupe depuis dernier espace => fin de chaine End If ++ Zlub

Zlub · Answer

Salut, Oups, posté un peu vite Dim pos As Integer Dim str As String str = "je suis l'eleve n 1" pos = InStrRev(str, " ") ' cherche le 1° espace depuis la droite (donc le dernier) If pos < 1 Then MsgBox "Erreur !" Else MsgBox Mid(str, pos+1) ' coupe après dernier espace => fin de chaine End If ++ Zlub

samisahliess · Answer

ce que l'exemple n'est pas exactement le meme voila
[**] [1:553:1] INFO FTP anonymous FTP [**] [Classification: Not Suspicious Traffic] [Priority:3] 12/04-13:50:28.395522 192.168.42.122:2490 -> 192.168.42.122:21 TCP TTL:64 TOS:0x0 ID:49455 IpLen:20 DgmLen:67 DF  **AP*** Seq: 0xBFFF321  Ack: 0xC01115F  Win: 0x7960  TcpLen: 32  TCP Options (3) => NOP NOP TS: 40524741 40524740

c une ligne de log je ve avoir seulement le numero de priorité qui est "3"
et tout le reste je vais mettre ces info dans un fichier puis dans une base pour mieux faire l'analyse 
merci pour votre aide vous etes gentil

samisahliess · Answer

merci j'essaye de lemodifier avec le fichier texte je vous dirais ce que j'ai pu faire merci

samisahliess · Answer

merci vous etes tres gentil sa marche tres bien vraiment un grand merci

samisahliess · Answer

je pe vous poser d'autre question si possible 
je ve savoir comment faire une connexion avec une base acces et comment ajouter ces valeurs dans la base merci

PCPT · Answer

voir rubrique - tutoriaux, ou codes par cat&#233;gorie - base de donn&#233;es
(tout d&#233;pend la base que tu as, ce que tu veux en faire (simple stockage, requ&#234;tes, etc...) bref...
bonne recherche ;)
PCPT

samisahliess · Answer

merci vous etes trop gentil bonne chance bye

Esriture dans un fichier

9 réponses

Discussions similaires