怎样判断数组内的元素并删除它

[casualplayer]

Dim file As New StreamReader(FileName, System.Text.Encoding.Default)

Dim sLines As New ArrayList

Do Until file.EndOfStream = True
sLines.Add(file.ReadLine)
Loop

如何判断sLines中每个元素是否含有“,”字符？
如何将没有“,”字符的元素删除并移动索引？

[yuqingtong]

Do Until file.EndOfStream = True
sLines.Add(file.ReadLine)
Loop

改成

Do Until file.EndOfStream = True
Dim tmpStr As String
tmpStr = file.ReadLine
If tmpStr.IndexOf(",") <> -1 Then
sLines.Add(tmpStr)
End If
Loop

[yanlongwuhui]

楼上的是先判断，把符合条件的记录到数组。这种方法最简便了。
如果你需要数组中记录全部，然后进行过滤的话，你可以考虑把复合条件的复制到另外的数组中

[amandag]

Dim sr As New StreamReader(FileName, System.Text.Encoding.Default) 

Dim sLines As New ArrayList 

Do Until sr.EndOfStream = True
    sLines.Add(sr.ReadLine().Replace(",", String.Empty))
Loop

建议不要用file做变量名，会和System.IO.File混淆