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?

Please also mark the comments that contributed to the solution of the article

Content-Key: 190671

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

Printed on: April 19, 2024 at 05:04 o'clock

4 Comments

Latest comment

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