replace in vbs und |`s

[pschwarz 10]

Hallo zusammen...

 

ich habe folgende Aufgabe die ich per vbs lösen mag... und zwar habe ich eine Datei namens import.txt in einem Intervall in einem Verzeichnis liegen. Diese txt lese ich per vbs aus und lösche darus dann eine Zeichenkette "Alter Text", möchte allerdings das Trennzeichen ebenso mit dabei löschen (sprich eigentlich: Alter Text|). Wie kann ich dies machen?

 

Nachfolgend einmal der komplette Code:

 

Dim y, m, d, h, n, s, MyDate  y = Year(Date)
  m = Month(Date) : If Len(m)=1 Then m = "0" & m : End If
  d = Day(Date) : If Len(d)=1 Then d = "0" & d : End If
  h = Hour(Time) : If Len(h)=1 Then h = "0" & h : End If
  n = Minute(Time) : If Len(n)=1 Then : n = "0" & n : End If
  s = Second(Time) : If Len(s)=1 Then : s = "0" & s : End If
  MyDate=y&m&d&h&n&sOn Error Resume NextstrFilename = "import.txt"
strFile = "import_" & MyDate & ".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("\\Quellverzeichnis\"&strFilename)
intFileSize = objFile.Size
Set objFile = objFile.OpenAsTextStream()
strFileContent = objFile.Read(intFileSize)
objFile.CloseIf Err.Number = 0 Then
 Set objRegExp = New RegExp
 objRegExp.Pattern = Chr(34)
 objRegExp.Global = True
 objRegExp.IgnoreCase = True 'False für case-sensitive
 strFileContent = objRegExp.Replace(strFileContent, "")
 objRegExp.Pattern = "Alter Text|"
 strFileContent = objRegExp.Replace(strFileContent, "")
 Set objFile = objFSO.CreateTextFile("\\Zielverzeichnis\"&strFile)
 objFile.Write strFileContent
 objFile.Close
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.GetFile("\\Quellverzeichnis\"&strFilename).Deleteelse
 Err.clear
End If

[pschwarz 10]

Nochmal Hallo...

 

ich weiss das ich Recht unbedarft hier bin, doch hoffe ich dass mir wer hier eine Hilfestellung geben kann.

 

Hintergrund ist, dass die Import-Schnittstelle ein Feld weniger erwartet als wie die Datei erzeugt wird. Leider schreibt die Export-Schnittstelle hier zum Schluß abschließend ein entsprechendes Trennzeichen... eben dieses | - Pipe. Dies wollte ich mithilfe des vbs einfach herauslöschen. Theoretisch also geht es um das letzte Zeichen der ersten und zweiten Zeile welches eben dieses "Steuerzeichen" dort enthält und eben einfach beim replace Befehl ignoriert wird. 

 

Ich weiss ich drücke mich vielleicht hier was verwirrend aus, aber hat hier wirklich niemand eine kleine Hilfestellung für mich... oder ein Verweis?

 

Vielen Dank nochmal im Voraus!

 

 

[NilsK 3.046]

Moin,

 

für so eine simple Aufgabe brauchst du nicht mal Regular Expressions, da reicht das normale Replace:

strNeu = Replace(strAlt, strSuchstring & strTrennzeichen, "")

 

Schöne Grüße, Nils