UC知道vb listview~保存为txt文件
来源：百度知道 编辑：UC知道 时间：2024/05/13 02:15:03
listview里面的数据是仪器通过接收到回车显示出来的~~
If Right$(data, 1) = Chr(10) Then '用串口调试知道数据最后一位其实是回车键
If Mid$(data, 9, 1) = Chr(13) Then '这两行相当接收到回车键
Dim nodeX As ListItem
Set nodeX = ListView1.ListItems.Add()
nodeX.Text = ListView1.ListItems.Count '序号
nodeX.SubItems(1) = Text1.Text '测量值
nodeX.SubItems(2) = FormatNumber(Val(Text1.Text), , vbTrue) '误差值,还没有处理好
End If
End If
listview 中显示的是量具上显示的数据
问题:我想把listview中的数据保存成为TXT文件,这是我在网上找到的代码,根据自己需求修改了.
Private Sub Command5_Click() '保存文件按钮
With CommonDialog1
.FileName = " "
.DialogTitle = "另存为"
.Filter = "TXT格式文件(*.txt)|*.txt"
.DefaultExt = "txt"
.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt
End With
If Right$(data, 1) = Chr(10) Then '用串口调试知道数据最后一位其实是回车键
If Mid$(data, 9, 1) = Chr(13) Then '这两行相当接收到回车键
Dim nodeX As ListItem
Set nodeX = ListView1.ListItems.Add()
nodeX.Text = ListView1.ListItems.Count '序号
nodeX.SubItems(1) = Text1.Text '测量值
nodeX.SubItems(2) = FormatNumber(Val(Text1.Text), , vbTrue) '误差值,还没有处理好
End If
End If
listview 中显示的是量具上显示的数据
问题:我想把listview中的数据保存成为TXT文件,这是我在网上找到的代码,根据自己需求修改了.
Private Sub Command5_Click() '保存文件按钮
With CommonDialog1
.FileName = " "
.DialogTitle = "另存为"
.Filter = "TXT格式文件(*.txt)|*.txt"
.DefaultExt = "txt"
.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt
End With
4 CommonDialog1.ShowSave 这个是打开保存对话框 ,而我想ShowOpen是打开 打开对话框 这控件只是和路径选择有关.
在VB我不清楚了..
3 你把 Print #1, "序号" & vbTab & "测量值" & vbTab & "误差值" 提到for循环的前面不就是只打印一次吗
2 If Len(CommonDialog1.FileName) = 0 Then 我想检测是否点击保存或取消不是这样吧,应该是检测CommonDialog1.ShowSave的返回值,常量不清楚了,好像 Yes 是0 No 是1 自己做个测试,保存和取消的值.
1不太明白..格式化的东西,自己多试几次就没问题了.