vb分字段读txt

来源:百度知道 编辑:UC知道 时间:2024/05/25 11:31:52
请问如果我有以下txt文件,想读入excel文件中,使得途径和停靠站点一栏的站点信息分字段保存改怎么弄啊,就是显示停靠站点:站点一 站点二……

1路公交线路(原1路)

所属公司:苏州市公共交通有限公司

途径:公交一路新村、碧波街(火车站西方向)、枫津路(一路新村方向)、广建路(一路新村方向)、东吴南路、东吴北路、人民路、北环路、火车站西

停靠站点:公交一路新村、碧波花园(火车西方向)、枫津路(一路新村方向)、吴中汽车站(一路新村方向)、东吴塔、吴中区人民医院、南门二村、团结桥北(公交公司)、人民桥南、南门、工人文化宫、三元坊、饮马桥、察院场观前街西、接驾桥、北寺塔、平门、火车站西

起点站首末班时间:05:00~22:30 终点站首末班时间:05:00~22:30
高峰行车间隔:4分 平峰行车间隔:5分 线路里程:11.3公里
票价:1元

偶新来的,请高手帮帮忙啊,万万分感谢~~~!!!!
有高手可以提供代码参考下吗,真的谢谢了

我知道的方法有更快的方式,就是直接用复制粘贴,当然,也可以用程序进行,主要是把txt文件按从头到尾的顺序进行读取,然后循环语句分别判断那写字符是用来分格各字段的,并把它们分别保存为不同的字段并写入EXCEL里。应该不算难题吧。

1.菜单栏--数据--导入外部数据--导入数据--选中你要导入的txt
2."导入起始行"改为 对话框下部预览文件中"途径:……"那一行前的数字--下一步
3."分隔符号"改其他,输入"、"--下一步
4.完成--确定

至于 站点一 站点二…… 你只能自己加了