建一個txt檔案，名為：shangpin.txt，內容為：
40寸彩電,4800
夏普空調,3680
電風扇,182
腳踏車,555
新建工程，儲存到某資料夾，把上面的txt檔案也複製到工程資料夾裡。
在窗體上新增2個列表框，1個文字框，把列表框1的style屬性設定為1。
程式碼如下：
optionexplicit
privatespm()asstring
privatedj()assingle
privatesubform_load()
"讀取檔案資訊
dimmystrasstring
dimnasinteger
dimlasinteger
list1.clear
n=-1
openapp.path&"\shangpin.txt"forinputas#1"以讀的方式開啟檔案
dowhilenoteof(1)"迴圈至檔案尾
lineinput#1,mystr"讀入一行
n=n+1
redimpreservespm(n)asstring
redimpreservedj(n)assingle
l=instr(mystr,",")
spm(n)=left(mystr,l-1)
list1.additemspm(n)
mystr=right(mystr,len(mystr)-l)
dj(n)=mystr
loop
close#1"關閉檔案。
list2.clear
endsub
privatesublist1_click()
dimiasinteger
dimtotalassingle
total=0
fori=0tolist1.listcount-1
iflist1.selected(i)then
total=total+dj(i)
list2.additemlist1.list(i)
endif
nexti
text1.text=cstr(total)
建一個txt檔案，名為：shangpin.txt，內容為：
40寸彩電,4800
夏普空調,3680
電風扇,182
腳踏車,555
新建工程，儲存到某資料夾，把上面的txt檔案也複製到工程資料夾裡。
在窗體上新增2個列表框，1個文字框，把列表框1的style屬性設定為1。
程式碼如下：
optionexplicit
privatespm()asstring
privatedj()assingle
privatesubform_load()
"讀取檔案資訊
dimmystrasstring
dimnasinteger
dimlasinteger
list1.clear
n=-1
openapp.path&"\shangpin.txt"forinputas#1"以讀的方式開啟檔案
dowhilenoteof(1)"迴圈至檔案尾
lineinput#1,mystr"讀入一行
n=n+1
redimpreservespm(n)asstring
redimpreservedj(n)assingle
l=instr(mystr,",")
spm(n)=left(mystr,l-1)
list1.additemspm(n)
mystr=right(mystr,len(mystr)-l)
dj(n)=mystr
loop
close#1"關閉檔案。
list2.clear
endsub
privatesublist1_click()
dimiasinteger
dimtotalassingle
total=0
list2.clear
fori=0tolist1.listcount-1
iflist1.selected(i)then
total=total+dj(i)
list2.additemlist1.list(i)
endif
nexti
text1.text=cstr(total)
endsub