1 Ανοίξτε τον αγαπημένο σας επεξεργαστή κειμένου 2
Επικολλήστε τον ακόλουθο : .
Dim FSO , TEXTFILE
const ForWriting = 2
const ForAppending = 8
που FSO = CreateObject ( " Scripting.FileSystemObject " )
που tEXTFILE = FSO.OpenTextFile ( "c : \\ textfile.txt " , ForWriting )
textFile.WriteLine " Αυτό θα αντικαταστήσει όλα τα τρέχοντα περιεχόμενα του αρχείου και να το αντικαταστήσει με αυτή την πρόταση . "
textFile.Close
που tEXTFILE = FSO . OpenTextFile ( "c : \\ textfile.txt " , ForAppending )
textFile.WriteLine " Αυτό θα πρέπει να επισυνάπτεται στο τέλος του αρχείου ! "
textFile.Close
Αυτό δηλώνει δύο σταθερές για δύο διαφορετικούς τρόπους εισόδου /εξόδου : ForWriting και ForAppending . Εάν ένα αρχείο ανοίγει με το " ForWriting " σημαία , στη συνέχεια, το νέο κείμενο θα εξαλείψει όλα τα τρέχοντα περιεχόμενα του αρχείου . Από την άλλη πλευρά , εάν χρησιμοποιείται η " ForAppending " σημαία , το νέο κείμενο θα προστεθεί στο τέλος του τρέχοντος αρχείου , διατηρώντας όλα τα περιεχόμενά του .
Εικόνων 3
Αποθηκεύστε την εργασία σας . Μπορείτε να εκτελέσετε τη δέσμη ενεργειών με διπλό κλικ .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα