Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte svoj obľúbený textový editor
2
vložte nasledujúci : .
Dim FSO , TEXTFILE
const ForWriting = 2
const ForAppending = 8
nastaviť FSO = CreateObject ( " Scripting.FileSystemObject " )
nastavenia textového súboru = fso.OpenTextFile ( " c : \\ TextFile.txt " , ForWriting )
textFile.WriteLine " To prepíše všetky aktuálne obsah súboru a nahradiť ju touto vetou . "
textFile.Close
nastavenia textového súboru = FSO . OpenTextFile ( " c : \\ TextFile.txt " , ForAppending )
textFile.WriteLine " To bude pripojená na koniec súboru! "
textFile.Close
tento deklarujete dve konštanty pre dva rôzne vstupné súbor /výstupných režimov : ForWriting a ForAppending . Ak je súbor otvorený s " ForWriting " vlajkou , potom nový text zmaže všetky aktuálny obsah súboru . Na druhú stranu, ak je použitý " ForAppending " príznak , nový text bude pridaný na koniec existujúceho súboru , zachovanie všetkých jeho obsah .
3
Uložte svoju prácu . Môžete spustiť skript , poklepaním ho .
Copyright © počítačové znalosti Všetky práva vyhradené