廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3914 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為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.029124 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言