VFP 愛用者社區

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 1 樓

頭好痛ㄛ~

有没有高手大大可以幫幫我 ....

在 VFP 程式中用 COPY FILE 指令...

*** 指定客戶編號 (ACNO) ...

oACNO= SUBSTR(THISFORM.ACNO.VALUE,1,5)+'*'

Copy file oACNO TO TEMP.PDF

請問如何把 oACNO 傳到 COPY FILE 上 ....

謝謝~~

nelsonchuang · 發表於: 星期五二月 29, 2008 4:00 pm 文章主題:

查一下'&'以及
evaluate()

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 3 樓

sorry ~ 小弟我好像說的很複雜...
簡單的說, 就是參數 oACNO...怎麼放到 copy file 中...

版大可以教教我嗎? 感謝~

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 4 樓

先謝謝 n大...
我找到'&.' 與 Evaluate()
這指令...我先測試看看...
謝謝 ...

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 5 樓

謝謝 N 大大~ 我測試可以了..

****
M1= 'G:\PDF\'+SUBSTR(THISFORM.ACCNO.VALUE,4,5)+'*.PDF'
COPY FILE &M1 TO C:\ACCTEMP

***
感恩~~~

BIN · 發表於: 星期一三月 03, 2008 4:13 pm 文章主題:

COPY FILE "&M1" TO C:\ACCTEMP

建議您改成這樣, 才不會有長檔名的問題,
如果有用到COPY TO的指令,
也是一樣的用法...

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 7 樓

這討論區~~

一堆高手...比書本實用...

感謝~

green · 註冊時間: 2003-09-19 文章: 137 第 8 樓

COPY FILE (M1) TO C:\ACCTEMP
也可以避免長檔名或含空白目錄名稱的問題

jeff25 · 發表於: 星期六三月 08, 2008 1:46 pm 文章主題:

green --> COPY FILE (M1) TO C:\ACCTEMP 是最最正確的寫法
其他都有可能出問題,所以處理檔名存放在變數時,請用上述的方法用括號, 不要再用 & 了

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 10 樓

各位大大...
請幫幫我 ~~

M1= 'G:\pdf\'+SUBSTR(THISFORM.ACCTEXTBOX1.VALUE,4,5)+'*.PDF'

COPY FILE (M1) TO C:\ACCTEMP

但當檔名(變數 M1) 輸入錯誤或無此檔名時... 程式會中斷.顯示程式錯誤...

請問我該如何避開這個錯誤 ~
謝謝 !

nelsonchuang · 發表於: 星期一五月 26, 2008 4:31 pm 文章主題:

=.=|| 你複製檔案不先檢查的嗎?

syntech · 發表於: 星期一五月 26, 2008 6:13 pm 文章主題:

所以我通常都給"不完全正確"的答案,
避免別人亂抄一通. XD

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 13 樓

N 大...可能我没問清楚...

下面是 user 輸入客戶編號...可以依指定路徑開啟 pdf合約檔的程式...
(我現只暫時用最後一碼是否空白判斷..>.<)

若是資料庫...這檢查就很簡單...
但若 user 輸入一個没有合約的客戶編號...讓我檢查是否有此檔案...

我是想 COPY FILE 可否有像開啟正使用檔案不可以複製那樣簡單的程式...如下:

nHAND=FOPEN(M1,12)
IF nHAND=-1
MESSAGEbOX("有人使用不可複製")
ELSE
=FCLOSE(nHAND) ***可 copy
ENDIF

那我就可以不用把PDF 的檔名當資料庫輸入去檢核 ...
謝謝 ~

**** 下面這程式是輸入戶編號在指定路徑下選擇開啟pdf檔...重點都是 N 大教我去查 ...感謝 ~

set talk off
m2=substr(THISFORM.ACCTEXTBOX1.VALUE,1,8 )

if substr(m2,8,1)<>' ' ***當使用者輸入不完全的編號..."暫"用笨方法***

** 先清除暫存檔
DELE FILE C:\ACCAPP\*.PDF

*** 設原始大資料庫路徑
M1=SPACE(8 )
M1= 'G:\agreement\'+SUBSTR(THISFORM.ACCTEXTBOX1.VALUE,4,5 )+'*.PDF'

*** COPY TO 暫存檔
COPY FILE(M1) TO C:\ACCAPP

*** 指定路徑 **** 是 N大教我用 SYS
cCurrentProcedure = SYS(16,1)
nPathStart = AT(":",cCurrentProcedure)- 1
nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart) + 1
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))

PDF_file = GETFILE('PDF', '選擇或取消', '選擇', 0, '請選擇要開啟的PDF檔')

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要開啟的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE

lcUrl = "file://"+PDF_file

oPDF=CREATEOBJECT("wscript.shell")

if VARTYPE(oPDF) <> "O"
= MESSAGEBOX("PDF沒有安裝!",64,"提示")
return
endif

DO CASE
CASE EMPTY(PDF_file)
Messagebox("並未選擇要讀入的PDF檔",1+32,"訊息視窗")
QUIT
OTHERWISE

ENDCASE

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
INTEGER hwnd, STRING lpVerb, STRING lpFile, ;
STRING lpParameters, STRING lpDirectory, LONG nShowCmd

ShellExecute(0, "Open", LCURL, "", "", 1)

else
?? CHR(7)
=MESSAGEBOX("無此客戶編號 ! 是否繼續 ?",4+48,"訊息視窗")
THISFORM.ACCTEXTBOX1.VALUE=SPACE(8 )
THISFORM.ACCTEXTBOX1.SETFOCUS()
RETURN
endif

nelsonchuang · 發表於: 星期二五月 27, 2008 10:18 am 文章主題:

很努力的看你這篇回文（我看了４次），但是看不太出來你想說什麼？是問題已解決？未解決？還是自己摸索出來？

rich5858 · 註冊時間: 2008-02-27 文章: 14 第 15 樓

N 大,
我是說...
用COPY FILE 指定的變數...是 user 自己輸入的檔案名稱 *.pdf 檔 .

我有没有辦法用最簡單的方式...去檢核這檔案是否存在這指定資料夾內...

謝謝!