讀檔問題 - MyChat 數位男女

MyChat 數位男女

»
程式設計

»
讀檔問題

手機版

地圖

簡體

您是第 3899 個閱讀者

可列印版加為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.068665 second(s),query:16 Gzip disabled 本站由瀛睿律師事務所擔任常年法律顧問 \| 免責聲明 \| 本網站已依台灣網站內容分級規定處理 \| 連絡我們 \| 訪客留言