vb查询字符串并替换

Question

用vb打开指定的的txt文本，，用程序搜寻文本-- Links: --
------------

LINK 1 NAME "" LABEL 0.00 0.00
TYPE 1 LENGTH 135.200 LANES 1 LANE_WIDTH 10.00 GRADIENT 0.00000 COST 0.00000 SURCHARGE 0.00000 SURCHARGE 0.00000 SEGMENT LENGTH 10.000
FROM -144.730 33.681
TO -9.537 35.018

中TYPE 1 LENGTH字符串，并可将后边的135.200更换成任意数。。。。。

Answer 1

查找字符串的函数是 instr，替换字符串的函数是replace，用法：
instr(n , S1 , S2) 在字符串S1中，从左边第n个字符向后搜索S2第一次出现的位置，例如
i = instr ( 3, "abcbcbc", "b" )，此时 i = 4

replace（s,s1,s2) 在字符串s中搜索s1，如果搜索到就将s1替换成s2，例如
replace("asdfasdfasfas","asd","m") 结果是 mfmfasfas

希望对你有用