Wert 0 wird nicht durch N ersetzt.

Hallo,

ich habe eine Datei mit -1 und 0 Werten.

Versuch per Script

Ein = "c:\temp\neu.csv"  
Aus = "C:\swift-xml\neu.csv"  
arrAlt = Array("999998", "999999")  
arrNeu = Array("J", "N")   

Set fso = CreateObject("Scripting.FileSystemObject")  

var = fso.OpenTextFile(Ein).ReadAll

For i = 0 To UBound(arrAlt) - 1
  var = Replace(var, arrAlt(i), arrNeu(i))
Next

fso.CreateTextFile(Aus).Write var 

wird nur das J ersetzt, der Wert 999999 bleibt unberührt,
Wie bekomme ich es hin, dass der Wert 999999 wirklich durch N ersetzt wird?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 190671

Url: https://administrator.de/contentid/190671

Ausgedruckt am: 21.11.2024 um 21:11 Uhr

4 Kommentare

Neuester Kommentar

Hallo intermde!

Wie bekomme ich es hin, dass der Wert 999999 wirklich durch N ersetzt wird?

Indem Du "- 1" ersatzlos streichst ...

Grüße
bastla

Hallo,

vielleicht als kurze Anmerkung zu bastlas Beitrag(nicht dasss ich Bastla korriegieren wollte):
Die Funktion UBound(Array) gibt nicht die Anzahl der Elemente in einem Array an(wie zum Beispiel Len(Array)), sondern - wie der Name schon sagt - die UpperBound, also die obere Grenze (ein -1 ist also, wie Bastla schon sagte, völlig falsch)

MfG,
Mathe172
@bastla: Bitte nicht besserwisserisch auffassen