Probleme d'écriture dans un .txt

Question

Bonjour, j'ai un probl&#232;me pour &#233;crire la variable "Ligne" dans "Sauvegarde.txt", je ne sais pas o&#249; &#233;crire "Fichier.WriteLine Ligne".
Est-ce que qlq'1 pourrait me d&#233;panner ? 
Voici le prog :

Private Sub Timer1_Timer()


Set FSys = CreateObject("Scripting.FileSystemObject")
Set Fichier = FSys.CreateTextFile("C:\Kart\Sauvegarde.txt")


If MSComm1.PortOpen = True Then
    A = MSComm1.Input                   'Signal d'entr&#233;e du port s&#233;rie
    octet = 0
        For X = 3 To Len(A) - 1             'On retire les 2 premiers octets ainsi que le dernier qui sont des octets de contr&#244;les
            s = Mid$(A, X, 1)                   'S correspond &#224; chaque octet du signal
            octet = octet + 1
            p = X Mod 4                         'Cette fonction permet de diviser le num&#233;ro d'octet du signal par 4
            Select Case p                   'Selon le reste de la division, on remplit les diff&#233;rents tableaux de donn&#233;es
                Case 0
                    Text1.Text = Text1.Text + CStr(Asc(s)) + " " + vbCrLf
                    j = j + 1
                    tab1(j) = CStr(Asc(s))
                    Ligne = CStr(Asc(s))
                Case 1
                    Text2.Text = Text2.Text + CStr(Asc(s)) + " " + vbCrLf
                    k = k + 1
                    tab2(k) = CStr(Asc(s))
                    Ligne = Ligne & ";" & CStr(Asc(s))
                Case 2
                    Text3.Text = Text3.Text + CStr(Asc(s)) + " " + vbCrLf
                    l = l + 1
                    tab3(l) = CStr(Asc(s))
                    Ligne = Ligne & ";" & CStr(Asc(s))
                Case 3
                    Text4.Text = Text4.Text + CStr(Asc(s)) + " " + vbCrLf
                    m = m + 1
                    tab4(m) = CStr(Asc(s))
                    Ligne = Ligne & ";" & CStr(Asc(s))
            End Select


            If j 23 Then j 0


            If k 23 Then k 0


            If l 23 Then l 0


            If m 23 Then m 0


            If octet = 92 Then              'Test sur le nombre d'octet re&#231;u
                Label3.Caption = "ok"
            Else
                Label3.Caption = octet
            End If


        Next X


    Label2.Caption = "Ouvert"


Else
    Label2.Caption = "Ferm&#233;"
End If


Fichier.Close


End Sub

Merci &#224; vous

Sensei01 · Answer

Sensei01 

ben ca depend, a quel moment ta ligne est complete et prete a &#234;tre ecrit ???

/******** Sans audance pas de gloire !! ********/

fricher · Answer

Je voulais &#233;crire apr&#233;s la fonction "case" (comme &#231;a je r&#233;cup&#232;re 4 valeurs par ligne)

cs_franckydeluka · Answer

pour &#233;crire dans un fichier : 

Private Sub Form_Load()
   Open "c:	est.txt" For Binary As 1
   Put #1, ,  "ligne"
   Close 1
End Sub



Deluka.

fricher · Answer

Je te remercie Deluka pour tes lignes de codes. 
Ca marche imp&#233;cable.

Probleme d'écriture dans un .txt

4 réponses

Discussions similaires