Mike21 Δημοσ. 17 Σεπτεμβρίου 2003 Δημοσ. 17 Σεπτεμβρίου 2003 exo grapsei ton parakato kodika gia na kano save se ena txt arxeio. Otan omos kano ena neo save me neo field sto txtname tote to palio pariexomeno to txt antikathistatai me to kainourgio. Ti prepei na kano oste na krataei kai ta proigoumea periexomena kai apla na prosthetei mia grammi dixos na diagrafei tipota??? comDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" comDialog.ShowSave If comDialog.filename <> "" Then Open comDialog.filename For Output As #1 Print #1, txtName.Text Close #1 End if End Sub
HaPagan Δημοσ. 17 Σεπτεμβρίου 2003 Δημοσ. 17 Σεπτεμβρίου 2003 Από ότι θυμάμαι , πρέπει να κάνεις append και όχι output . Κάνε μια έρευνα στο help αρχείο της VB .
Επισκέπτης Δημοσ. 17 Σεπτεμβρίου 2003 Δημοσ. 17 Σεπτεμβρίου 2003 comDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" comDialog.ShowSave If comDialog.filename <> "" Then Open comDialog.filename For Append As #1 Print #1, txtName.Text Close #1 End if End Sub Βάλε Append και θα είσαι ΟΚ. Τώρα αν θέλεις να δεις αν το αρχείο περιέχει ήδη δεδομένα, θα βάλεις ένα if με το LOF(1)>0 ώστε να μπορεί να επιλέξει ο χρήστης αν θέλει να γράψει από πάνω του. Στην περίπτωση αυτή όμως καλύτερα να ανοίξεις το αρχείο με random πρώτα, να κάνεις τον έλεγχο LOF, να επιλέξει ο χρήστης ναι/όχι και μετά να το ανοίξεις με append (για συνέχεια στο αρχείο) ή output (για διαγραφή και γράψιμο από πάνω).
Mike21 Δημοσ. 17 Σεπτεμβρίου 2003 Μέλος Δημοσ. 17 Σεπτεμβρίου 2003 Me mia leksi teleios. Se euxaristo
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.