[VBA函数]：编一个将鸿业市政的横断面数据格式转化为EICAD横断面数据格式的文件

raobinhsh

编一个将鸿业市政的横断面数据格式转化为EICAD横断面数据格式的程序
处理前的数据格式(鸿业市政的横断面数据格式)
k0+000
-23.544 275
-17.314 274.44
-14.413 269.46
-0.612 269.14
1.803 270
15.63 267.5
25.78 265
27.829 264.10
k0+040
-4.923 277.5
-0.891 275
4.333 272.5
10.768 270
20.108 267.5
28.327 265
36.504 263.50
k0+080
-10.346 280
-5.852 277.65
5.158 272.5
9.184 271.05
10.536 270.06
13.84 270.06
16.233 269.82
22.324 267.42
k0+120
-15.9 288.12
-15.165 282.09
-7.673 279.65
1.259 276.90
5.174 275.72
14.629 272.15
21.906 269.83
28.575 267.11
29.182 267.11
30.203 265.87
35.612 265.87
36.55 264.32
k0+160
-9.376 282.5
-0.886 288.10
5.985 278.50
10.484 277.63
16.951 275.53
k0+180.24
-27.743 292.5
-23.042 290
-17.465 287.5
-10.391 285
-3.614 282.5
2.269 280
9.464 277.5
16.13 275
处理后的数据格式(EICAD横断面数据格式)0
-27.743 292.5 -23.042 290 -17.465 287.5 -10.391 285 -3.614 282.5
2.269 280 9.464 277.5 16.13 275
40
-9.376 282.5 -0.886 288.1
5.985 278.5 10.484 277.63 16.951 275.53
80
-15.9 288.12 -15.165 282.09 -7.673
279.65 1.259 276.9 5.174 275.72 14.629 272.15 21.906 269.83 28.575 267.11 29.182 267.11 30.203 265.87 35.612 265.87 36.55 264.32
120
-10.346 280 -5.852 277.65
5.158 272.5 9.184 271.05 10.536 270.06 13.84 270.06 16.233 269.82 22.324 267.42
160
-4.923 277.5 -0.891 275
4.333 272.5 10.768 270 20.108 267.5 28.327 265 36.504 263.5
180.24
-23.544 275 -17.314 274.44 -14.413 269.46 -0.612 269.14
0.728 269.2 1.803 270 15.63 267.5 25.78 265 27.829 264.1
说明
1 桩号
将K0+060、K1+060，K1+064.325等形式的数据格式转化成纯粹的数据格式，依次为。60。1060。1064.325
就是将数据中的非数字字符（如K，+）删除，并取从左边第一个非0的数字后的数字，并单独写在一行
2 两桩号之间的各行
将两个桩号之间的各行第一个数字为负数的各行放置于一行，（第一个数字为负数的各行之间可能夹杂有
第一个数字为正数的行）
将两个桩号之间的各行第一个数字为正数的各行放置于一行，（第一个数字为正数的各行之间可能夹杂有
第一个数字为负数的行）

glowz

看看 正需要

yshf

这并不难,原理大概同此http://www.xdcad.net/forum/showthread.php?s=&threadid=655729

tyw2xxm

正需要这东西，谢谢

suoykw

正需要这东西

pythis

看看

yjhcelia

找了好久，谢谢楼主了。收下