從For Each覆蓋值

Question

我使用For Each迭代集合。 每次我找到一個字符串，以「;」結尾，我需要刪除「;」。 （它用於csv解析，我有一個來自第三方的僞造文件）。

當我確定一條線時，我希望它覆蓋現有的值。 「12」;與「12」。

這段代碼找到所有正確的行，但沒有覆蓋arrAccounts。

dim con 
For Each con In arrAccounts(x) 
    if Right(con,1) = ";" then 
     dim length 
     length = Len(con) 
     con = Left(con, (length-1)) 
    end if 
next 

我在想什麼/做錯了什麼？

Answer 1

我認爲唯一的是你必須再次將新值插入到數組中。

dim i, con 
for i = 0 to ubound(arrAccounts(x)) ''# for keeping track which item we are looking at 
    con = arrAccounts(x)(i) 
    if right(con, 1) = ";" then 
     con = left(con, len(con) - 1) 
     arrAccounts(x)(i) = con ''# insert the new value back into the array at the same position 
    end if 
next