Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Save contents of list box to a text file
Message
 
À
15/07/2004 09:16:01
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00924634
Message ID:
00924641
Vues:
10
#define CRLF CHR(13)+CHR(10)

myFile = "MyAddList.TXT"

FOR nCnt = 1 TO ThisForm.lstListBox1.ListCount
    IF ThisForm.lstListBox1.Selected(nCnt)  && Is item selected?
       STRTOFILE(ThisForm.lstListBox1.List(nCnt)+CRLF, MyFile, (nCnt # 1)) 
    ENDIF
ENDFOR
or You can concatenate the string & writå it to file after FOR ... ENDFOR loop
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform