VBScript, das prüft, ob text-Datei existiert und wenn nicht erstellen, die enthalten die voreingestellten text

Ich möchte mit einem vbscript, wenn die text-Datei: "C:\Temp\CAD_Kunde.txt" vorhanden ist und wenn nicht sollte es schaffen, eine davon enthält dieser text:

1
BEHR;B18 SP4;B18 SP7;0
AUDI;B19 SP3;0
BMW;B19 SP3;0
BIT;B18 SP4;B19 SP3;B16 SP9;0
CHRYSLER;B18 SP4;0
CAE_64;B19 SP3;0
CNHTC;B19 SP3;0
DAF;B19 SP3;0
DASSAULT;B18 SP7;B19 SP3;0
DFCV;B19 SP3;0
FORD;B18 SP4;0
FREIGHTL;B19 SP3;0
FUSO;B19 SP3;0
HINO;B19 SP3;0
HONDA;B19 SP3;0
IVECO;B19 SP3;0
MAN;B19 SP3;0
NISSAN;B19 SP3;0
MB;B19 SP3;0
PACCAR;B19 SP3;0
PORSCHE;B19 SP3;0
PORSCHE_HYBRID_DX;B19 SP3;0
PSA;B19 SP3;0
RENAULT;B19 SP3;0
RVI;B18 SP4;0
SCANIA;B19 SP3;0
TELCO;B19 SP3;0
UD_TRUCK;B17 SP4;0
VOLVO_CAR;B18 SP4;0
VOLVO_TRUCK;B19 SP3;0
V5_MM;B18 SP4;0
V5_BM;B19 SP3;0
V5_TEST;B19 SP9;0
VW;B19 SP3;0

Den text in die text-Datei erstellt werden soll mit dem gleichen format.

Edit: Ok, ich habe nicht das Teil zu prüfen, das bestehen der Datei und wenn es nicht zu schaffen. Ich brauche jetzt Hilfe zur Umsetzung in der else-Bedingung, die das Teil zum schreiben in die Datei.

<SCRIPT Language="VBScript"> 
Option Explicit  
Dim oTxtFile  
With (CreateObject("Scripting.FileSystemObject"))   
If .FileExists("C:\Temp\Kunde.txt") Then       
Else      
Set oTxtFile = .CreateTextFile("C:\Temp\Kunde.txt")
oTxtFile.Close  
End If  
End With
</script>

InformationsquelleAutor user1225282 | 2012-03-02

  1. 1

    Bitte schauen Sie hier und hier für einen schnellen start.

    --- Nach askers Bearbeiten ---

    Ah, jetzt sind wir immer irgendwo. Auf Stack Overflow, erwarten wir einige Mühe, von der aus statt "Können Sie mir schreiben mein code?" Fragen.

    Nach der überprüfung, falls die Datei nicht existiert, wäre es einfacher, wenn Sie öffnen eine Textdatei im Modus ForWriting und die option "Erstellen" auf "True":

    dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\somefile.txt", ForAppending, True) 
filetxt.WriteLine("Your text goes here.")
filetxt.Close

    Dadurch wird das erstellen und schreiben von text in eine Textdatei.
    Jetzt müssen wir füllen es mit Ihrem text. Es wäre am einfachsten, wenn Sie excel öffnen und copy-paste Ihren text in Spalte B, dann:

    1. fügen Sie den folgenden text in Zelle A1: filetxt.WriteLine("
    2. fügen Sie den folgenden text in Zelle C1: ")
    3. geben Sie diese Formel in Spalte D1: =A1 & B1 & C1
    4. Kopieren Sie die Zelle A1, C1 und D1 nach unten, um die Letzte gefüllte Zelle der Spalte B
    5. Kopieren Sie den text in der Spalte D zu deinem Skript, wo filetext.WriteLine("Your text goes here.") angegeben ist.

    Und führen Sie Ihr Skript.

    Endgültige Lösung:

    Option Explicit   
dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject")
If not filesys.FileExists("C:\Temp\Kunde.txt") Then
    Set filetxt = filesys.OpenTextFile("C:\Temp\Kunde.txt", ForWriting, True) 
    ' 
    ' Copy - Paste the appropriate filetext.WriteLine statements here
    '        
    filetxt.Close
End If
    dein post ist nicht hilfreich ich bearbeitete meinen eigenen Beitrag. wenn Sie wissen, vbscript bitte haben Sie einen Blick auf mein edit.
    Dein Skript funktioniert einwandfrei, aber ich verwendet ForWriting. Jetzt ist es überschreibt jedes mal die Datei. Wie kann ich die ersten lassen es prüfen, ob die Datei existiert und wenn es existieren nichts zu tun, aber wenn es nicht existiert, erstellen Sie die Datei mit text?
    Die Sie bereits erstellt haben, sich selbst! Aber ich werde dir helfen, durch die Bearbeitung meiner ehemaligen post. Und vergessen Sie nicht, akzeptieren Sie dies als 'Die richtige Antwort', wie es Ihnen geholfen ;).
    er funktioniert perfekt. Danke.

    InformationsquelleAutor AutomatedChaos

Schreibe einen Kommentar