checkbox et .txtRésolu

Question

D'abord bonjour et merci, comme demandé voila mon script:

Private Sub Check1_Click()
Dim ofile As Integer
    ofile = FreeFile
    If Check1.Value = 1 Then
    Open "boite1.txt" For Output As ofile
    Print #ofile, "1" & vbCrLf
    Close ofile
    End If
    If Check1.Value = 0 Then
    Open "boite1.txt" For Output As ofile
    Print #ofile, "" & vbCrLf
    Close ofile
    End If
End Sub


Private Sub Check2_Click()
Dim ofile As Integer
    ofile = FreeFile
    If Check2.Value = 1 Then
    Open "boite2.txt" For Output As ofile
    Print #ofile, "2"
    Close ofile
    End If
    If Check2.Value = 0 Then
    Open "boite2.txt" For Output As ofile
    Print #ofile, "" & vbCrLf
    Close ofile
    End If
End Sub

voila ce que j'aimerais faire,
je m'explique: quand je coche une check je crais un fichier boitexx.txt, une fois que tout les check désirées sont cochées et que tout mes fichiers boitexx.txt sont créaient, je les concaténent (les fichichers boitexx.txt) pour ne faire qu'un fichier txt. J'aimerais que le txt final soit de la forme " 1 2 3 4 etc...." mais pour l'instant quand je concaténe il est de la forme:
1 

2

3

etc....

et cela vient des fichiers boitexx.txt, a leurs créations il y a un espace et un saut de ligne derriere mon "xx", et je n'arrive pas a les supprimer.... et ca m'aggace 
voila si vous avez une solution je suis prenneur.
ce qui m'interesse c'est le fichier txt final sous la forme "1 2 3 etc..."en cochant les checkbox , il y a peut etre une façon différente de l'obtenir mais la je seche....
Merci d'avance
@ +













GUINOUILLE "la fripouille"

katsankat · Accepted Answer

Salut :)


Pour écrire sans saut de ligne, ajoutes un point-virgule à la fin de l'
instruction print. Une petite astuce découverte sur vbfrance.


Alternative: concaténer le string, avant de l' écrire en une seule instruction print dans le fichier final.

fiko81 · Answer

Salut,
Je pense que si tu bosses avec un groupe de checkBox ce sera mieux :
Tu déclares une checkbox et tu lui donne un index 0, ensuite copier coller du check pour commencer à créer le groupe (autant de check que tu en as besoin).

Ensuite dans l'évenement click du checkbox :

Private Sub Check1_Click(Index as Integer)
Dim ofile As Integer
Dim i as Integer

    ofile = FreeFile
    Open "boite.txt" For Output As ofile
   
    For i = Check1.LBound To Check1.UBound
         if Check1(i).Value = 1 then Print #ofile, i & " " 
    Next i   

    Close ofile

End Sub

 Fiko ;-)

Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance./FONT>

guinouille · Answer

Merci pour l'inf, ça a marcher au poil !!!!!
il faut juste remplacer:
Print #ofile, "" & vbCrLf
par:
Print #ofile, "" ;
c'est fantastique merci !!!!!!!

GUINOUILLE "la fripouille"

Checkbox et .txt

3 réponses

Votre réponse

Discussions similaires