Ouverture de d'un fichier dans plusieurs textbox

Question

Voilà le problème :

J'ai réussi à enregistrer plusieurs textbox dans un fichier (8 textbox sur la même ligne avec un CommonDlg) mais quand je clique sur le bouton que j'ai créé pour ouvrir les données, ben je ne sais pas comment répartir les infos enregistrées bien distinctement dans les textbox propres, si quelqu'un a compris le prob, et qu'il peut le résoudre, ben qu'il réponde lol

Merci d'avance

cs_DARKSIDIOUS · Answer

Tout dépend de la façon dont tu as enregistré tes données... As-tu utilisé la commande Print ou Write ?

DARK SIDIOUS

miko500 · Answer

C'est la méthode "Print" que j'ai utilisée.

cs_DARKSIDIOUS · Answer

A ce moment là, il n'y a pas de problème :

Open "lenomdufichier" for input as #1

for int_for1 = 0 to 7

input #1, Text1(int_for1).Text

next int_for1

Close #1

Il faut pour que ca marche que tes textbox soit tous nommés Text1.

DARK SIDIOUS

miko500 · Answer

Oui, mais je veux faire ça avec un CommonDialog, et moi, avec l'accès aux fichiers, chui nul, tu pourré STP me faire le code pour sauvegarder et ouvrir les données ? (tjrs pour les mm textbox) ? Merci d'avance

cs_DARKSIDIOUS · Answer

Ah parce que tu veux aussi sauvegarder les données ??? Ok, je croyais qu'il te manquait uniquement le code pour charger les données. Bon voici un code alors :

Il faut que tes textbox soit tous nommés TXT_TEXTE et que ton contrôle CommonDialog soit nommé CMD_DIALOGUE pour que ce code marche :

SAUVEGARDE :


Dim INT_For1 As Integer

CMD_DIALOGUE.ShowSave

Open CMD_DIALOGUE.FileName For Output As #1

    For INT_For1 = 0 To 7
    
        Print #1, TXT_TEXTE(INT_For1).Text
        
    Next INT_For1
    
Close #1


CHARGEMENT :


Dim INT_For1 As Integer
Dim STR_Texte As String

CMD_DIALOGUE.ShowOpen

Open CMD_DIALOGUE.FileName For Input As #1

    For INT_For1 = 0 To 7
    
        Input #1, STR_Texte
        TXT_TEXTE(INT_For1).Text = STR_Texte
        
    Next INT_For1
    
Close #1


Vérifie si ca marche, et tiens moi au courant, mais chez moi ca marche nickel !

DARK SIDIOUS

Ouverture de d'un fichier dans plusieurs textbox

5 réponses

Discussions similaires