Heute muss ich beim Schreiben von Programmen wiederholt Textdateien schreiben, also habe ich eine Prozessfunktion geschrieben, in der Hoffnung, dass sie für alle nützlich sein wird.
Code:
Sub Write2File (Strfile, Strcontent, BLNAppend)
'Schreiben Sie in die Datei
'StrFile Dateiname (Pfad), Inhalt von StrContent, ob BLNAppend angehängt werden soll
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie OBJFSO = Server.createObject ("Scripting.FilesSystemObject").
Wenn BLNAppend dann
Setzen Sie objwritetext = objfso.opentextFile (strFile, 8, true)
Anders
SET OBJWRITETEXT = OBJFSO.OPENTEXTFILE (STRFILE, 2, TRUE)
Ende wenn
ObjwritEText.WriteLine (StrContent)
Objwritetext = nichts festlegen
Setzen Sie objfso = nichts
'Fehlertolerante Verarbeitung
Wählen Sie Fall err
Fall 424 Antwort.Write "Der Pfad wird nicht gefunden oder das Verzeichnis hat keine Schreibberechtigung."
'Case else Antwort.Write err.description
Case sonst response.write err
Ende auswählen
Ende sub
Aufrufmethode:
Write2File "c: /dd.ini", "dd", wahr
oder
Rufen Sie Write2File ("C: /dd.ini", "DD", wahr)
veranschaulichen:
1. Erstellen Sie automatisch Dateien;
2.Catalog kann nicht automatisch erstellt werden