對於i=0到n‘有n+1個文本框。
str = str & amptext 1（I）。文本&。","
然後
str = mid（str，1，len（str）-1）
寫入文件
打開“c:\1.txt”輸出為#1
打印31，字符串
關閉
從文件中讀取
打開“c“\ 1 . txt“作為#1輸入
行輸出#1，字符串
v=split（字符串，“，“）
對於i=0至下界（v）
text 1（I）。text = v（0）