如何用VB6.0修改文本第一行数据和在固定的字段后增加同样的字._百度知 ...
发布网友
发布时间：2024-10-24 09:26
共2个回答
热心网友
时间：2024-10-29 00:10
这个用文本软件里的 查找替换就可以了啊
"班次*时间*" 替换为 "*班次*时间*始发站*
"*05:30*" 替换为 "*05:30*广州*"
热心网友
时间：2024-10-29 00:08
修改第一行：
s = "*班次*时间*_终点站*票价*里程*线路类型*车型*准售*余票*状态*途经站点*"
s = Left(s, 6) & "*始发站" & Mid(s, 7)
修改其他行：
s = "*1050*05:30*化州*130*625*非直达*大型卧铺高级*35*35*暂停*化州*"
方法1：如果格式相同，即班次都为4位，时间都为5位：
s = Left(s, 11) & "*广州" & Mid(s, 12)
方法2：班次不确定：
arr = Split(s, "*")
arr(2) = arr(2) & "*广州"
s = Join(arr, "*")
