VBScript is een lichtgewicht programmeertaal ontwikkeld door Microsoft . Het is zeer nuttig om te weten hoe te programmeren in VBScript , sinds zijn tolken voor de taal die zijn ingebed in alle Microsoft-besturingssystemen . Er zijn geen speciale programmeer gereedschap nodig om te draaien of te schrijven code in VBScript . Deze taal kan worden gebruikt client - side of toegevoegd aan webpagina's . Instructies
1 Klik met de rechtermuisknop in Windows Verkenner , selecteer "Nieuw " uit het pop - up menu en klik vervolgens op de " Text Document " menu-item naar een tekstbestand te maken .
< Br > 2 Open het nieuwe bestand te bewerken . Dit zal de container voor alle van de VBScript- code te schrijven . In elke stap hieronder , worden er meerdere regels van de code te zien met een gewoon Engels beschrijving van wat ze doen . Wanneer je al deze regels code samen , eindig je met een script naar een tekstbestand te maken .
3 Maak een variabele voor het bestandssysteem object en instantiëren ( instellen om een nieuw exemplaar van het object ) . In VBScript variabelen door " dimensioneren " ze met de " Dim " commando maakt u . Complexe variabelen ( degenen die geen strings , integers of booleans ) moeten worden geconcretiseerd voordat u ze kunt gebruiken Kopieer
de volgende code in uw tekstbestand : . Dim objFSO ' Zoals FileSystemObjectSet objFSO = CreateObject ( " Scripting . FileSystemObject " )
4 Voeg een string variabele voor het pad waar u het bestand wilt zetten en zet deze op de gewenste locatie . Kopieer
de volgende code in uw tekst file : Dim strDirectory ' Als StringstrDirectory = " C : \\ newdirectory "
5 Zorg dat de map directory bestaat . Als de map is er niet , maak het dan met behulp van het bestandssysteem object Kopieer
de volgende code in uw tekstbestand : . Dim objDirectory ' Zoals Objectif objFSO.FolderExists ( strDirectory ) ThenSet objDirectory = objFSO.GetFolder ( strDirectory ) ElseSet objDirectory = objFSO.CreateFolder ( strDirectory ) End If
6 Maak een string variabele voor de bestandsnaam en zet deze op een geschikte waarde . Kopieer
de volgende code in uw tekstbestand : Dim strFile ' Als StringstrFile = " NewFile.txt "
7 Maak een variabele voor het tekstbestand en instantiëren het. De CreateTextFile methode heeft een optionele parameter voor het overschrijven van het bestand dat het al bestaat Kopieer
de volgende code in uw tekstbestand : . Dim objTextFile ' Zoals ObjectDim blnOverwrite ' Zoals BooleanblnOverwrite = TrueSet objTextFile = objFSO.CreateTextFile ( strDirectory & " \\ " & strFile , blnOverwrite ) op Twitter Schrijf gegevens naar het nieuwe bestand met de onderstaande code 8 . Er zijn twee methoden voor het schrijven van bestanden , " schrijven " en " WriteLine . " De laatste methode omvat automatisch een nieuwe regel karakter voor u , terwijl de voormalige gewoon voegt gegevens op wat al aanwezig is Kopieer
de volgende code in uw tekstbestand : . ObjTextFile.Write ( " Dit is " ) objTextFile . WriteLine ( " een nieuw tekstbestand " ) ' Dit resulteert in de string " Dit is een nieuw tekstbestand "
9 Sluit het bestand met code en alle objecten goed los .
kopieer de volgende code in uw tekstbestand : objTextFile.CloseSet objTextFile = NothingSet objDirectory = NothingSet objFSO = Nothing
10 Bewaar alle van de code die u hebt gemaakt in de vorige stappen in het tekstbestand aan het begin en sluit het bestand . Hernoem de file " . Vbs " in plaats van " . Txt " door rechts te klikken op het bestand en kiezen voor " Naam wijzigen " uit het pop - up menu . Dubbelklik op het bestand om de code uit te voeren .
|
