VBScript qui vérifie si le fichier texte existe et quand ne pas en créer un qui contiennent presetted texte

Je veux vérifier avec un vbscript si le fichier texte: "C:\Temp\CAD_Kunde.txt" existe et lorsqu'il n'est pas, il doit en créer un qui contient ce texte:

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

Le texte dans le fichier texte doit être créé avec le même format.

Edit: Ok je n'ai pas de la partie pour vérifier l'existence du fichier et quand ne pas le créer. J'ai besoin d'aide maintenant à mettre en œuvre dans la condition la partie à écrire dans le fichier.

<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

    S'il vous plaît regardez ici et ici pour un démarrage rapide.

    --- Après askers edit ---

    Ah, maintenant que nous sommes se rendre quelque part. Sur un Débordement de Pile, nous nous attendons à un effort de l'questionair au lieu de "Pouvez-vous m'écrire mon code?" des questions.

    Après vérification si le fichier n'existe pas, il serait plus facile si vous ouvrez un fichier texte dans ForWriting mode et l'option Créer de Vrai:

    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

    Cela permettra de créer et d'écrire du texte dans un fichier texte.
    Maintenant, nous avons à remplir avec votre texte. Il serait le plus facile si vous ouvrez excel et copiez-collez votre texte dans la colonne B, alors:

    1. ajouter le texte suivant dans la cellule A1: filetxt.WriteLine("
    2. ajouter le texte suivant dans la cellule C1: ")
    3. type de cette formule dans la colonne D1: =A1 & B1 & C1
    4. Copier coller la cellule A1, C1 et D1 la baisse sur le dernier rempli cellule de la colonne B
    5. Copier coller le texte dans la colonne D de votre script où filetext.WriteLine("Your text goes here.") est indiqué.

    Et exécuter votre script.

    Solution Finale:

    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
    • votre post n'est pas utile, j'ai édité mon post. quand vous savez vbscript, jetez un oeil sur mon montage.
    • Votre script fonctionne bien mais j'ai utilisé ForWriting. Maintenant, il écrase tout moment le fichier. Comment puis-je laissez-le d'abord vérifier si le fichier existe et quand elles existent, ne rien faire, mais quand il n'existe pas de créer le fichier avec le texte?
    • Vous avez déjà créé vous-même! Mais je vais vous aider à vous en éditant mon ancien post. Et n'oubliez pas d'accepter cela comme "La bonne réponse", comme il vous a aidé à en sortir ;).
    • travaillé parfaite. Merci.
    InformationsquelleAutor AutomatedChaos