|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
CPS0204
註冊時間: 2014-08-24 文章: 441
第 1 樓
|
發表於: 星期五 十二月 18, 2020 3:13 pm 文章主題: 分享:查一下可用的變數個數 |
|
|
LOCAL COUNT1,LEN1
LIST MEMORY TO FILE TEMP_M.TXT NOCONSOLE
SELECT 0
CREATE CURSOR TEMP11 (W1 C(80))
APPEND FROM TEMP_M.TXT SDF
say1='個變數可使用'
DELETE ALL FOR ! ('variables available'$W1 or say1$w1)
GO TOP
LEN1=ATC('variable',TEMP11.W1) &&先找英文
IF LEN1=0
LEN1=ATC(SAY1,TEMP11.W1) &&找不到英文,則找中文
ENDIF
COUNT1=LEFT(TEMP11.W1,LEN1-1)
USE
RETURN VAL(COUNT1) |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 441
第 2 樓
|
發表於: 星期六 十二月 19, 2020 4:15 pm 文章主題: |
|
|
不知道有無更快的函數,例:
count1=set('mvcount')
或 count2=sys(????) |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|