现在有一个txt（dat）文件，其格式如--处理前.txt，现要通过VB来一个窗口操作得到--处理后.txt，其中要注意一下地方，
            STN     1.623,J14690,
            XYZ     10000,10000,50
            BS      1.68,T281,
            SD      346.0423,93.5352,15.739

转换后的是   GTS-700 v3.0
             STN     J14690,1.623,
             BS      T281,1.68,
             SD      0.00000,93.5352,15.739

其他修改的是：  SS      1.68,J16650,LA2
      修改后：  SS      J16650,1.68,LA2

我用VB写不会，窗口只需有导入文件和转换文件，转换后提示文件保存位置！
我用EXCEL宏写了一个，但是比较麻烦，我想在简化一下，请高手帮忙写个源代码，我好学习，谢谢！

等待版主高手们看看哦，顶

主要看txt文件的第一列数据，这里是用来判断后面交换位置的前提。

前面四行数据变动以列出，后面从第五行开始循环，以SD\SS来区分，是sd开头的行不变内容，是SS开头的行空格后的第一个逗号前后数据对换，就这些！

是的，bs后的逗号前后对换，第一个出现的sd的第一个逗号前为0.00000，其他不做比较！

后面出现的是数据SS和SD行的循环，其中只要修改SS中的第一个逗号前后内容对换，SD的不做修改！

如：
转换前数据
STN     1.623,J14690,----修改逗号前后数据为J14690,1.623,
XYZ     10000,10000,50---删除该行
BS      1.68,T281,----修改逗号前后数据为T281,1.68
SD      346.0423,93.5352,15.739----修改346.0423为0.00000，其他不变
SS      1.68,J16648,H----从这里出现规律，开始循环每次是以一个ss和sd为单位，修改第一个逗号前后的位置J16648,1.68
SD      344.1508,94.5056,15.541--不变
SS      1.68,J16649,H---同上SS
SD      345.1336,94.4004,16.071--不变
SS      1.68,J16650,LA2
SD      356.4802,91.5431,30.922
SS      1.68,J16651,LA2
SD      357.4341,91.3727,32.876
......无限数据
转换后数据：
GTS-700 v3.0---直接增加
STN     J14690,1.623,
BS      T281,1.68,
SD      0.00000,93.5352,15.739
SS      J16648,1.68,H
SD      344.1508,94.5056,15.541
SS      J16649,1.68,H
SD      345.1336,94.4004,16.071
SS      J16650,1.68,LA2
SD      356.4802,91.5431,30.922
SS      J16651,1.68,LA2
SD      357.4341,91.3727,32.876
......无限数据

也就是前四行是指定修改，从第五行也就是(SS)开始规律循环，只有ss存在修改，sd中直接复制不用变！！！
|——————————————————
|SS      J16651,1.68,LA2          |这位一次循环，从平面坐标上来说其实就是一个点的信息
|SD      357.4341,91.3727,32.876  |
|——————————————————


[ 本帖最后由 sm8350 于 2011-4-20 13:56 编辑 ]

等待高手帮忙，有点难哦，我用excel宏处理可以，但是非常麻烦，所以望高手解答！


辛苦，谢谢

一行一行写代码，写代码可能有点儿烦，但计算机执行起来，不容易感觉出来的。难道数据量巨大？？

这个数据文件是有规律的呀，就是前4行要指定数据，按上述事例调整，从5行以后的数据石SD\SS行循环呀，SD行数据不变，SS的数据才有变化，规律在txt文件中或上述有讲明。

我认为很容易，只是VB写不出来呢

在此等待！！！！！！！！！！！！