读档问题 - MyChat 数位男女

MyChat 数位男女

»
程式设计

»
读档问题

手机版

地图

繁体

您是第 3901 个阅读者

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

w791212w

级别: 初露锋芒

▼

[Basic][求助] 读档问题

我想问问大大关于读档的问题

假设:
程式放在
资料放在
资料名称
如果我要读取程式资 ..

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


x0 [楼主] From：台湾中华HiNet \| Posted：2008-03-18 20:18 \|

overing

级别: 初露锋芒

x55

▲ ▼

执行期间常数 App.Path
内容为执行档所在位置
可以拿这个常数来做相对位置使用
比方说你程式放在C:\AAA
复制程式

MsgBox App.Path

会显示 "C:\AAA"
所以依你的需求...
要读的资料档固定在跟执行档相同目录底下的BBB资料夹里的话
可以这么写...
复制程式

Open App.Path & "\BBB\test.txt" For Input As #1
   '...
Close #1

这样这整个AAA资料夹不管带到哪里应该都是能正常读取到资料档而不用修改Open语法的

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:54 \|

『星』

级别: 路人甲

▲ ▼

下面是引用overing于2008-03-18 22:54发表的 :
执行期间常数 App.Path
内容为执行档所在位置
可以拿这个常数来做相对位置使用
比方说你程式放在C:\AAA
复制程式
MsgBox App.Path
会显示 "C:\AAA"
所以依你的需求...
要读的资料档固定在跟执行档相同目录底下的BBB资料夹里的话
可以这么写...
复制程式
Open App.Path & "\BBB\test.txt" For Input As #1
   '...
Close #1
这样这整个AAA资料夹不管带到哪里应该都是能正常读取到资料档而不用修改Open语法的

非常感谢你用心的回答
由于script不是和file放在同一folder, 所以不能用App.Path

其实故事是这样的
原本想export outlook的personal folder(.pst file), 然后到另一部电脑再import有关资料(pst file会集合到同一folder)
又找不到tools帮忙, 最后从script入手
当发现outlook profile可从registry找到后, 就export出有关数据, 用script修改后再import到另一部电脑

------
用人手把personal folder存放位置记录, 再人手import, 几部也不是问题
但是当我知道将要做百多台电脑, 每个user平均也有20-40个personal folder...
就能深深体会到script的威力了, 呵=.=


x0 [2 楼] From：香港网上行 \| Posted：2008-03-19 20:41 \|

overing

级别: 初露锋芒

x55

▲ ▼

喔!~我以为大大说的是VB
原来是 VB Script

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)
x1 [3 楼] From：未知地址 \| Posted：2008-03-19 20:52 \|

『星』

级别: 路人甲

▲ ▼

下面是引用overing于2008-03-19 20:52发表的 :
喔!~我以为大大说的是VB
原来是 VB Script

对不起.....让你误会了


x1 [4 楼] From：香港网上行 \| Posted：2008-03-19 21:29 \|

overing

级别: 初露锋芒

x55

▲ ▼

VB Script 能直接使用系统的环境变数吗??
还是能使用 VB 的 API??
如果可以用其中一种就好办了

http://longtx.no-ip.co...aaa1.htm

能直接使用系统环境变数就直接参照这网页
如果可以跟 VB 一样调用 API
API 当中也有用来查询环境变数的函数

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 [5 楼] From：未知地址 \| Posted：2008-03-20 08:40 \|

『星』

级别: 路人甲

▲ ▼

下面是引用overing于2008-03-20 08:40发表的 :
VB Script 能直接使用系统的环境变数吗??
还是能使用 VB 的 API??
如果可以用其中一种就好办了

http://longtx.no-ip.co...aaa1.htm

能直接使用系统环境变数就直接参照这网页
如果可以跟 VB 一样调用 API
API 当中也有用来查询环境变数的函数

不能用到环境变数呢...
因为有关数据已经在registry拿了出来

以下是registry拿出来的数据 (删改了许多多余部份, 但格式是一样的)
复制程式

"001e6700"="C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data\\Microsoft\\Outlook\\test01.pst"
"001e6701"="00,11,00,ff,d4,23"
"001e6702"="D:\\e-mail\\test02.pst"
"001e6703"="E:\\mymail\\test03.pst"

执行了Script后变成
复制程式

"001e6700"="D:\\Exchange\\test01.pst"
"001e6701"="00,11,00,ff,d4,23"
"001e6702"="D:\\Exchange\\test02.pst"
"001e6703"="D:\\Exchange\\test03.pst"

正在研究如何实现...
主要是被regExp中的pattern难往了......
想不出来

以下是主要的code, 发觉执行后replace了所有资料...苦恼中
patrn = "001e6700=.+[a-z1-9]\\"
strNewText = "001e6700=D:\\Exchange\"
newmsg = regEx.Replace(strng, "001e6700=D:\\Exchange\")


x0 [6 楼] From：香港网上行 \| Posted：2008-03-21 01:08 \|

w791212w

级别: 初露锋芒

▲

VB6啦

VB Script 这是虾米鬼


x0 [7 楼] From：台湾中华HiNet \| Posted：2008-03-21 22:23 \|



MyChat 数位男女 » 程式设计

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