急vb的实时错误5 关于list的问题去除导入时的引号

来源：百度知道 编辑：UC知道 时间：2024/05/24 06:34:20
要实现从文件导入list1中的数据后，在list3中的把list1中的值不包含引号
急回答的好再追加30分
Private Sub Command1_Click()
Dim p As Integer, y As String, z As String
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
'Label1.Caption = i
For j = 1 To Len(List2.List(i))
y = Mid(List1.List(i), j, 1)
'Label2.Caption = j
If Asc(y) <> 34 Then
'Label3.Caption = List3.List(i)
p = j
z = Mid(List1.List(i), p, Len(List1.List(i)) - 2 * Val(j - 1))
List3.AddItem z
End If
Next j
Next i

Private Sub Form_Load()
Dim x As String
Open "d:\bbb.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
List1.AddItem x
Loop
Close
Form1.WindowState = vbMaximized
Label1.Caption = List1.ListCount
aaa = Label1.Caption
End Sub
第一个数实现后第二开始报错
在星期五之前帮我解答，能实现我的程序，再追加100分

'////////////////////下面是修改楼主的代码，目的是去除引号///////////////

Private Sub Command1_Click()
Dim p As Integer, y As String, z As String
For i = 0 To List1.ListCount - 1
z = ""
List2.AddItem List1.List(i)
'Label1.Caption = i
For j = 1 To Len(List2.List(i))
y = Mid(List1.List(i), j, 1)
'Label2.Caption = j
If Asc(y) <> 34 Then
'Label3.Caption = List3.List(i)
p = j
z = z & y
End If
Next j
List3.AddItem z
Next i
End Sub
Private Sub Form_Load()
Dim x As String
Open "d:\bbb.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
List1.AddItem x
Loop
Close
Form1.WindowState = vbMaximized
Label1.Caption = List1.ListCount
aaa = Label1.Caption
End Sub

********///////最好这样写，节省代码////

你的代码写的很乱，而且很废，如果想去除""则用replace替换再list3.additem
就行了，如果你想