数据库中一行纪录的字段情况如下:
状态,属性a,属性b,负荷1,速度11,功率11,速度12,功率12,速度13,功率13,负荷2,速度21,功率21,速度22,功率22,速度23,功率23,...负荷5,速度51,功率51,速度52,功率52,速度53,功率53
共5个负荷,一行就是一个状态的纪录,n个状态的话,就n行纪录
现在情况是实际测量时,在一个状态中,做几个负荷是不确定的(最多做5个负荷),一个负荷中的测量次数也不确定(测量一次记录一组速度和功率,最多三次,如在负荷1下测量三次:速度11,功率11,速度12,功率12,速度13,功率13)
提供的数据记录文件(.txt)格式如下:
——————————————————————
状态,属性a,属性b,
负荷1 ' 假设负荷1有三次测量
速度11,功率11,
速度12,功率12,
速度13,功率13,
负荷2 ' 假设负荷2有两次测量
速度21,功率21,
速度22,功率22,
.....状态,属性a,属性b, '另一状态的纪录
负荷1 ' 假设该状态下负荷1有一次测量
速度11,功率11,
负荷2 ' 假设负荷2有两次测量
速度21,功率21,
速度22,功率22,
.....
———————————————————————————
请问这样的数据文件格式怎么读到数据库里?(VB+Access)这样的数据记录我不知道怎么才能读到对应的变量中,再写到数据库中?
请教高手!PS.
我原来是这样做的,按负荷数循环,每个负荷里都按照测三次来做,要求提供的数据文件(.txt)是一行,大体格式如下:(假设2个负荷)
状态,属性a,属性b,负荷1,速度11,功率11,速度12,功率12,速度13,功率13,负荷2,速度21,功率21,速度22,功率22,,
即每个负荷里都按照测三次来做,测量没有三次时,已空值来代替,如上面负荷2,只测量两次,记录格式如上所示。
状态,属性a,属性b,负荷1,速度11,功率11,速度12,功率12,速度13,功率13,负荷2,速度21,功率21,速度22,功率22,速度23,功率23,...负荷5,速度51,功率51,速度52,功率52,速度53,功率53
共5个负荷,一行就是一个状态的纪录,n个状态的话,就n行纪录
现在情况是实际测量时,在一个状态中,做几个负荷是不确定的(最多做5个负荷),一个负荷中的测量次数也不确定(测量一次记录一组速度和功率,最多三次,如在负荷1下测量三次:速度11,功率11,速度12,功率12,速度13,功率13)
提供的数据记录文件(.txt)格式如下:
——————————————————————
状态,属性a,属性b,
负荷1 ' 假设负荷1有三次测量
速度11,功率11,
速度12,功率12,
速度13,功率13,
负荷2 ' 假设负荷2有两次测量
速度21,功率21,
速度22,功率22,
.....状态,属性a,属性b, '另一状态的纪录
负荷1 ' 假设该状态下负荷1有一次测量
速度11,功率11,
负荷2 ' 假设负荷2有两次测量
速度21,功率21,
速度22,功率22,
.....
———————————————————————————
请问这样的数据文件格式怎么读到数据库里?(VB+Access)这样的数据记录我不知道怎么才能读到对应的变量中,再写到数据库中?
请教高手!PS.
我原来是这样做的,按负荷数循环,每个负荷里都按照测三次来做,要求提供的数据文件(.txt)是一行,大体格式如下:(假设2个负荷)
状态,属性a,属性b,负荷1,速度11,功率11,速度12,功率12,速度13,功率13,负荷2,速度21,功率21,速度22,功率22,,
即每个负荷里都按照测三次来做,测量没有三次时,已空值来代替,如上面负荷2,只测量两次,记录格式如上所示。
解决方案 »
- vb求助,请各位帮忙看看
- 如何获得另一个程序中网页的内容?
- 多个记录集合并的问题
- VB6.0使用MSCOMM发短信怎么发送Ctrl+Z
- ■高手请进:打造超级access,模拟SQL功能!自动备份,事务日志,回滚
- 初学者问题,显示在窗口上的内容莫名其妙的消失了~~~~~~~~
- 请问用API方法怎样读取显卡、主板的型号、硬盘的序列号及网卡的MAC地址?
- 哪位抽时间做一个csdn读取器,我喜欢程序的那种,比较快,而网页的我不喜欢,太慢了!
- 关于API的使用问题
- 我下载了"水晶报表 V8.0" 我想在vb6里使用它.我该如何做呀.
- 有关PictureBox, 急急急,在线等待
- byte数组处理的问题,想了一下午没想到好的解决办法。
1、通过对话框打开文件
cdShow.Filter = "Txt Files (*.txt)|*.txt"
cdShow.ShowOpen
If cdShow.FileName = "" Then Exit Sub
Open cdShow.FileName For Input As #1
2、循环读每行数据,通过函数Split 把数据分开保存到数组变量,对
Do While Not EOF(1)
Line Input #1, str
TempArray=Split(Str,'分隔符')
'对数组进行判断操作
'执行数据新增、修改操作.
Loop
3、关闭文件
Close #1