易截截图软件、单文件、免安装、纯绿色、仅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 - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

求助:C代码change toVB代码 - VB / 基础类

挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

VB如何获得别的程序上的表格内容? - VB / API

我的要求是:通过抓取别的程序上的表格的句柄,然后读取这个表格的内容。
表格句柄(类名:MSFlexGridWndClass)我已抓到,接下来如何读取表格的内容就不会了?求助。

能把代码发来学习下不?
244326867@qq.com ......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......

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号