|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
whh
註冊時間: 2010-04-16 文章: 166
第 1 樓
|
發表於: 星期五 十一月 02, 2012 8:14 am 文章主題: 遇到目錄名稱有空白的問題? |
|
|
C__PATH2 = 'C:\PROGRA~1\Microsoft Office\' && log
C_SET_PRINT = C__PATH2 + "MyOffice.log"
SET PRINTER TO &C_SET_PRINT
SET PRINTER ON
? LS_EDIT
SET PRINTER OFF
SET PRINTER TO
↑
以上寫法會無法產生出 LOG檔,後來我有發現是因為【Microsoft Office】
中間有空行的原因,請問決這個問題要如何解決 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 2 樓
|
發表於: 星期五 十一月 02, 2012 9:17 am 文章主題: |
|
|
將長檔名改成短檔名
代碼: |
Function GetShortName
Lparameters cPathToConvert
Local cBuf, nBufSize, nShortSize
If Type([cPathToConvert]) # [C] .Or. Len(cPathToConvert) = 0
* Nothing to convert
Return []
Endif
Declare Integer GetShortPathName In Win32API ;
STRING @cLongPath, ;
STRING @cShortPathBuff, ;
INTEGER nBuffSize
cBuf = Space(511)
nBufSize = 511
nShortSize = GetShortPathName(cPathToConvert, @cBuf, @nBufSize)
If nShortSize > 0
Return Left(cBuf, nShortSize)
Else
Return cPathToConvert &&[]
Endif
Endfunc
|
|
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期五 十一月 02, 2012 12:13 pm 文章主題: |
|
|
代碼: |
C__PATH2 = 'C:\PROGRA~1\Microsoft Office\' && log
C_SET_PRINT = "SET PRINTER TO ("+ C__PATH2 + "MyOffice.log)"
&C_SET_PRINT
SET PRINTER ON
? LS_EDIT
SET PRINTER OFF
SET PRINTER TO
|
_________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
sean27
註冊時間: 2008-08-17 文章: 49
第 4 樓
|
發表於: 星期五 十一月 02, 2012 1:56 pm 文章主題: |
|
|
這行 SET PRINTER TO &C_SET_PRINT
改成 SET PRINTER TO (C_SET_PRINT)
路徑/檔名 請用() , 不要再用 & 了 _________________ foxpro & php 初學者 |
|
回頂端 |
|
|
whh
註冊時間: 2010-04-16 文章: 166
第 5 樓
|
發表於: 星期五 十一月 02, 2012 6:01 pm 文章主題: |
|
|
都解決了^^ 謝謝各位高手 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|