查看: 625|回复: 3

请版主删帖

[复制链接]

Monki0115

2014-11-11 02:51 PM

本帖最后由 Monki0115 于 2014-11-21 02:29 PM 编辑

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

Dim r As DataRow = dt.Rows.Add
r("size") = intPic
r("Time") = txttime.Text
r("Accurate") = lblAcc.Text

复制代码

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

fsoStream = fso.CreateTextFile("d:\Sample.csv", True)
strLine = txttime.Text
fsoStream.WriteLine(strLine)
strLine = ""
strLine = strLine & "," & intPic & "," & txttime.Text & "," & lblAcc.Text
fsoStream.WriteLine(strLine)

复制代码

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

fact.PNG (11.85 KB, 下载次数: 6)

text.PNG (16.06 KB, 下载次数: 11)

htuomrev

2014-11-11 03:55 PM

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

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

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

Monki0115

2014-11-11 06:18 PM

str1 += txttime.Text & ","
str2 += txttime.Text & ","
str3 += lblAcc.Text & ","
strLine = str1 & "," & str2 & ","& str3
fsoStream.WriteLine(strLine)

复制代码

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

htuomrev

2014-11-12 02:43 PM

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

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

返回列表

请版主删帖

浏览过的版块