易截截图软件、单文件、免安装、纯绿色、仅160KB

vb 文件处理问题,急急急! - VB / 基础类

原文件内容如下(文件很大,约有15万行):
'日期+正点 数据
2001110100 25325.0
2001110101 25635.0
2001110102 26035.0
2001110103 26345.0
2001110104 26700.0
2001110105 99999
2001110106 99999
2001110107 99999
2001110108 27170.0
2001110109 27070.0
2001110110 26850.0
2001110111 26580.0
2001110112 26320.0
2001110113 26045.0
……
……
……
1.有时第一列前面会有一个空格
如:
(空格)2001110100 25325.0
(空格)2001110101 25635.0
  …… ……
  …… ……
  …… ……
2.不管原文件第一列前是否有空格,都要将第二列的每个数据乘以固定值(如0.32),如果第二列的数据为“99999”则不需要计算保持原有的“99999”。然后将结果输出为另一个文件(第一列前不带空格)。
格式如下:(保留一位小数)
2001110100 8104.0
2001110101 8203.2
……
2001110106 99999
2001110107 99999
……
……

多谢!!!
split函数拆分。
trim去掉空格。

引用
split函数拆分。
trim去掉空格。

拆分谁都知道 问题是怎么确定是后面的那个数?


这个问题,大家不是再在上一帖里有回答吗,难道还未解决
http://topic.csdn.net/u/20100519/23/067aff69-aab2-43ef-b3db-872e5a49fe7e.html

感谢上帝,感谢楼主散分,俺再复制一下:
Dim i As Long
Dim strText As String
Dim strLines() As String
Dim strFields() As String

'读文件
Open App.Path


相关问答:

vb超简单form.show的问题 - VB / 非技术类

为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧

我也快疯了。
楼主知道怎么发贴么?

引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

VB调用EXCEL绘图,如何修改X轴坐标 - VB / 基础类

小弟用VB调EXCEL作图
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号