广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3714 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
w791212w
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x4 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] 读档问题
我想问问大大关于读档的问题

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

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



献花 x0 回到顶端 [楼 主] From:台湾中华HiNet | Posted:2008-03-18 20:18 |
overing 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x55
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

执行期间常数 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 |
『星』
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x3
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用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 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x55
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

喔!~我以为大大说的是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 |
『星』
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x3
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用overing于2008-03-19 20:52发表的 :
喔!~我以为大大说的是VB
原来是 VB Script 表情
对不起.....让你误会了


献花 x1 回到顶端 [4 楼] From:香港网上行 | Posted:2008-03-19 21:29 |
overing 手机
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x55
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

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 |
『星』
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x3
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用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
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x4 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

VB6啦 表情
VB Script 这是虾米鬼 表情


献花 x0 回到顶端 [7 楼] From:台湾中华HiNet | Posted:2008-03-21 22:23 |

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