请版主删帖

Monki0115

这是我现在code.把data save 成 datatable 然后转去excel
我想把这个改成直接save去csv file.

1. Dim r As DataRow = dt.Rows.Add
   
2. 
   
3.         r("size") = intPic
   
4.         r("Time") = txttime.Text
   
5.         r("Accurate") = lblAcc.Text

复制代码

每当我 click button 的时候data就要直接存进csv file 里面.
我目前做到的code 是这样

1. fsoStream = fso.CreateTextFile("d:\Sample.csv", True)
   
2.             strLine = txttime.Text
   
3.             fsoStream.WriteLine(strLine)
   
4. 
   
5. strLine = ""
   
6.         strLine = strLine & "," & intPic & "," & txttime.Text & "," & lblAcc.Text
   
7.         fsoStream.WriteLine(strLine)

复制代码

各位vb达人麻烦帮我看一下应该要怎么改.
intPic ,  txttime.Text, lblAcc.Text 这三个data要save在同一个column可是不同的row.

htuomrev

先 declare 好三行 string，然后 loop 每个 compnent
str1， str2， str3

loop :
str1 += intpic & ","
str2 += txtTime & ","
str3 += lblAcc & ","
endloop;

然后把 str1 + str2 + str3 save 在一起。
然多写 code，就先理论好了。

Monki0115

1. str1 += txttime.Text & ","
   
2.             str2 += txttime.Text & ","
   
3.             str3 += lblAcc.Text & ","
   
4.         strLine = str1 & "," & str2 & ","& str3
   
5.         fsoStream.WriteLine(strLine)

复制代码

这样么？可是最后一个code会有error.
我是有很多个picturebox(一次出现一个，click 了之后才会出现下一个), 当我click 的时候这些data会write 去csv file. 所以好像不可以用loop

htuomrev

Monki0115 发表于 2014-11-11 06:18 PM
这样么？可是最后一个code会有error.
我是有很多个picturebox(一次出现一个，click 了之后才会出现下一个) ...

好吧，我不知道你的 input 是处于一个怎样的形式，你觉得可以不用loop 那就不 loop 咯。
还有，把每一行加在一起必须要添加 "\r\n" 换行符。