请教VB中replace() 的问题

MyChat 数位男女

»
程式设计

手机版

地图

繁体

您是第 3567 个阅读者

可列印版加为IE收藏收藏主题上一主题 | 下一主题

『星』

级别: 路人甲

▼

[求助] 请教VB中replace() 的问题

各位VB高手
我想利用VBS来修改从registry拿出来的file path

例如
"001e6700"="C:\MyOldPath\abc.txt"
"001e6701"="C:\MyOldPath2\abcd.txt"
"001e6702"="C:\MyOldPath3\abcde.txt"
变 ..

访客只能看到部份内容，免费加入会员或由脸书 Google 可以看到全部内容


x0 [楼主] From：香港网上行 \| Posted：2008-03-18 21:12 \|

overing

级别: 初露锋芒

x55

▲ ▼

传回的字串 = Replace(来源字串, 寻找的字串, 取代成字串[, 开始位置, 取代几组])
复制程式

Dim str1 As String, str2 As String
str1 = "AbcdefgAbcdefg"
str2 = Replace(str1, "bcd", "123")
Debug.Print str2 '印出 "A123efgA123efg"

Zippy G2 600W Intel C2Q Q9550 Gigabyte GA-X48-DQ6 Gigabyte GV-NX96T512H-B G-skill pi 1100MHz 2Gx4 ACARD ANS-9010 32GB (Windows7 10sec boot!!) WD 150GB(WD1500ADFD)/640GB(6400AASK)
x0 [1 楼] From：未知地址 \| Posted：2008-03-18 22:48 \|

Freelife

级别: 初露锋芒

x60

▲ ▼

找到"MyOldPath"的起始位置后，再往下找"\"的位置，
把这中间的字串移除，再放进你要的~
只是手续多了一点，还是可以达到你想要的效果~


x0 [2 楼] From：台湾中华HiNet \| Posted：2008-03-19 08:33 \|

『星』

级别: 路人甲

▲ ▼

下面是引用Freelife于2008-03-19 08:33发表的 :
找到"MyOldPath"的起始位置后，再往下找"\"的位置，
把这中间的字串移除，再放进你要的~
只是手续多了一点，还是可以达到你想要的效果~

谢谢你们的回答, 但是问题就出在"MyOldPath"这里了
MyOldPath是未知的, 不同user放进不同地方, 可能是C:\abc\, 又可能是C:\aaa\b, 又或是D:\cba\def 等等......
所以才伤脑筋
现在正研究Regular Expression..


x0 [3 楼] From：香港和记电讯 \| Posted：2008-03-19 08:57 \|

overing

级别: 初露锋芒

x55

▲ ▼

这个另一篇有人有问类似问题
可以用执行期间环境常数 App.Path
来取得执行档所在的目录位置
可以用来当相对位置使用...

http://bbs.mychat.to/read.php?tid=691355

Zippy G2 600W Intel C2Q Q9550 Gigabyte GA-X48-DQ6 Gigabyte GV-NX96T512H-B G-skill pi 1100MHz 2Gx4 ACARD ANS-9010 32GB (Windows7 10sec boot!!) WD 150GB(WD1500ADFD)/640GB(6400AASK)
x0 [4 楼] From：未知地址 \| Posted：2008-03-19 12:38 \|

三仙

以马内利

级别: 版主

版区: 程式设计

x17

x370

▲

从registry拿出file path
我记得要用 api
的 RegOpenKeyEx
和 RegCloseKey
和 RegQueryValueEx
请查一下msdn api的用法

挖出答案的难度，取决提问的深度！
x0 [5 楼] From：台湾中华HiNet \| Posted：2008-04-08 05:48 \|



MyChat 数位男女 » 程式设计

Powered by PHPWind v1.3.6 Copyright © 2003-04 PHPWind	Processed in 0.053731 second(s),query:16 Gzip disabled 本站由瀛睿律师事务所担任常年法律顾问 \| 免责声明 \| 本网站已依台湾网站内容分级规定处理 \| 连络我们 \| 访客留言