Insérer “-” à une position spécifique à l'aide de VBScript

J'ai un fichier qui contient plusieurs lignes.

  • Il est nécessaire d'avoir "-" après la 8ème position dans chaque ligne.
  • Je peux lire des lignes avec un "-" à la 9e position, mais je ne suis pas capable d'écrire "-" à la 9ème place si elle n'est pas là.

Toute aide serait vraiment appréciée.

  • Code postal merci
InformationsquelleAutor Vishal | 2011-12-29
  1. 3

    Ce vbs

    • ouvrir un fichier C:\temp\log.txt,
    • faire un changement global, avec un seul regexo
    • écrire le nouveau texte mis à jour en arrière sur le fichier d'origine

    S'il vous plaît changer le chemin de votre fichier pour l'adapter à cette ligne

    StrFileName = "C:\temp\log.txt"

    Const ForReading = 1    
Const ForWriting = 2
Dim objFSO
Dim objTF
Dim objRexex
Dim StrFileName
Dim strTxt

StrFileName = "C:\temp\log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTF = objFSO.OpenTextFile(StrFileName, ForReading)
Set objregex = CreateObject("vbscript.regexp")
strTxt = objTF.ReadAll
objTF.Close
With objregex
    .Global = True
    .MultiLine = True
    .Pattern = "^(.{8})[^-](.*)$"
    strTxt = .Replace(strTxt, "$1" & "-" & "$2")
End With

Set objTF = objFSO.OpenTextFile(StrFileName, ForWriting)
objTF.Write strTxt
objTF.Close
    InformationsquelleAutor brettdj
  2. 4

    Vous ne pouvez pas insérer des caractères dans une chaîne VBScript, parce que ce sont immuables; vous aurez pour concaténer une nouvelle chaîne de Left(sOrgStr, 8) & "-" & Mid( sOrgStr, 9). (Les chiffres sont de +-1 selon la façon de compter.)

    InformationsquelleAutor Ekkehard.Horner
  3. 2

    vous pouvez fixer les chaînes de vous lire à l'aide de ce code:

    s="input string"
if (mid(s,9,1)<>"-") then 'the 9th character isn't "-"
    s=left(s,8) & "-" & mid(s,9)
end if

    Je suggère vous allez ouvrir votre fichier d'entrée et de ré-écrire dans un autre fichier texte.

    • Remarque: Cela permettra également de mettre un tiret (-) à la fin de chaque ligne qui est plus courte que 8 caractères.
    InformationsquelleAutor Uri Goren
  4. 1

    Vous pouvez utiliser des expressions régulières.

    Si vous êtes en train de lire les lignes 1-par-1-je pense que vous besoin de quelque chose comme

    Set objRe = New RegExp
' this will match any line having 9 or more characters,
' where the 9-th character is not "-", and capture the first 8 characters in the group #1
objRe.Pattern = "^(.{8})[^-]"

' Open the file, read lines, in the inner loop, call:
line = objRe.Replace( line, "$1-" ) ' This will replace the RE with the group #1 followed by '-'
    • Mondial de la regex de remplacement qui serait plus efficace que ligne par ligne
    • oui, mais il n'y a pas de garantie de l'ensemble des données correspond à deux fois en l'espace d'adressage (esp. sur les plates-formes 32 bits): en VBS, les chaînes sont BSTR c'est à dire USC2 c'est à dire 2 octets par caractère. Ligne-par-ligne permet de traiter de gros fichiers.
    InformationsquelleAutor Soonts