以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 两个list单独定义,为什么最后数值会叠加??? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100107) |
-- 作者:l20j07 -- 发布时间:2017/5/4 22:16:00 -- 两个list单独定义,为什么最后数值会叠加??? myflp 中存好了FTP上的文件夹地址,然后想分别将长文件名(带地址)和文件名(不包括地址)分别存入myfl和mmyfl,但结果两个都是长文件名,还存了两遍,什么情况?Bug么? 原始代码:
Dim fls,ffls,myflp,myfl,MMyfl As List(of String)
myfl = fls myfl.Clear MMyfl = fls MMyfl.Clear For i =0 To myflp.Count-1 fls.Clear ffls.Clear fls = ftp1.GetFileList(myflp(i)) ffls =fls If fls.count < 1 Then Continue For End If For j=0 To fls.Count - 1 ffls(j) = dl & "\\" & fls(j) Next
myfl.AddRange(ffls) MMyfl.AddRange(fls)
Next
Tables("表A").AddNew(mmyfl.Count) For i =0 To myfl.Count-1 Tables("表A").Rows(i)("第一列") = mmyfl(i) Tables("表A").Rows(i)("文件地址") = myfl(i) Next MessageBox.Show( "共计文件:" & myfl.Count & "个,耗时: " & (Date.Now - st).TotalSeconds & "秒") |
-- 作者:有点色 -- 发布时间:2017/5/4 23:22:00 -- 你给变量赋值的时候,不是把内容拷贝一遍,只是把它的地址赋值过去,根据地址找到的都是同一个内容
你要执行两遍
fls = ftp1.GetFileList(myflp(i)) ffls = ftp1.GetFileList(myflp(i))
或者是 ffls.AddRange(fls) |