Αυτό το άρθρο είναι ένα άρθρο καθρέφτη της αυτόματης μετάφρασης, κάντε κλικ εδώ για να μεταβείτε στο αρχικό άρθρο.

Architect_Programmer_Code Δίκτυο Γεωργίας»Αρχιτέκτονας › Περιοχή Διαχείρισης › Προτάσεις παραπόνων › κάδος ανακύκλωσης › Προσθέστε χαρακτήρες μαζικά πριν από κάθε γραμμή σε ένα αρχείο κειμένου txt
Άποψη: 6158|Απάντηση: 0

Προσθέστε χαρακτήρες μαζικά πριν από κάθε γραμμή σε ένα αρχείο κειμένου txt

[Αντιγραφή συνδέσμου]
Δημοσιεύτηκε στις 4/2/2015 1:25:21 μ.μ. | | |

'=================================================================
set arg=WScript.Arguments
αν arg.count=0 τότε
msgbox "Χρήση:"&vbcrlf&vbcrlf&" Μην εκτελείτε απευθείας αυτό το σενάριο, απλώς σύρετε και αποθέστε ένα ή περισσότερα αρχεία που πρέπει να αντικατασταθούν με συμβολοσειρές σε αυτό το αρχείο σεναρίου.
wscript.quit
τέλος αν
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Παρακαλώ εισάγετε τον χαρακτήρα που προσθέσατε πριν από τη γραμμή:")
κάνω
fw.writeline(δεδομένα&fr.readline)
βρόχος μέχρι το fr.atendofstream
fr.κλείσιμο
fw.κλείσιμο
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
κάνω
fw.writeline(fr.readline)
βρόχος μέχρι το fr.atendofstream
fr.κλείσιμο
fw.κλείσιμο
fso.deletefile("temp.txt")
'====================================================
Αντιγράψτε το παραπάνω περιεχόμενο και αποθηκεύστε το ως αρχείο VBS, σύρετε το έγγραφο που θέλετε να τροποποιήσετε σε αυτό το αρχείο VBS, μπορείτε να εισαγάγετε τους χαρακτήρες που θέλετε να προσθέσετε, να επιβεβαιώσετε μετά την εισαγωγή, να ανοίξετε το έγγραφό σας και θα διαπιστώσετε ότι κάθε γραμμή σας έχει προσθέσει τα δεδομένα που μόλις εισαγάγατε.




Προηγούμενος:Υπάρχουν τρεις κοινές προτάσεις εισαγωγής SQL
Επόμενος:Εισαγωγή του αρχείου txt στον SQL SERVER 2008

σχετικές αναρτήσεις
Αποκήρυξη:
Όλο το λογισμικό, το υλικό προγραμματισμού ή τα άρθρα που δημοσιεύονται από το Code Farmer Network προορίζονται μόνο για μαθησιακούς και ερευνητικούς σκοπούς. Το παραπάνω περιεχόμενο δεν θα χρησιμοποιηθεί για εμπορικούς ή παράνομους σκοπούς, άλλως οι χρήστες θα υποστούν όλες τις συνέπειες. Οι πληροφορίες σε αυτόν τον ιστότοπο προέρχονται από το Διαδίκτυο και οι διαφορές πνευματικών δικαιωμάτων δεν έχουν καμία σχέση με αυτόν τον ιστότοπο. Πρέπει να διαγράψετε εντελώς το παραπάνω περιεχόμενο από τον υπολογιστή σας εντός 24 ωρών από τη λήψη. Εάν σας αρέσει το πρόγραμμα, υποστηρίξτε γνήσιο λογισμικό, αγοράστε εγγραφή και λάβετε καλύτερες γνήσιες υπηρεσίες. Εάν υπάρχει οποιαδήποτε παραβίαση, επικοινωνήστε μαζί μας μέσω email.
Mail To:help@itsvse.com