| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
480615
註冊時間: 2008-04-11
文章: 93
第 1 樓
|
 發表於: 星期六 十二月 04, 2010 9:40 pm 文章主題: 求助高手：一段搜索目录下的子目录代码，有几个不懂，请教一下，多谢了。 |
 |
|
求助高手：一段搜索目录下的子目录代码，有几个不懂，请教一下，多谢了。
**陕西zx1913 自定义函数
FOR JJ=1 TO 陕西ZX1913("D:\")
=MESSAGEBOX(CARRAYNAME(JJ),48,"报告")
NEXT JJ
* ==============
FUNC 陕西ZX1913
PARAMETERS CPATH &&接收上述"D:\"
CPATH=CPATH+"*.*" &&路径加上"*.*",得到类似"c:\??\??\*.*"
NCOUNT=ADIR(CDIRNAME,CPATH,"D") &&&把文件属性为D，放入数组中并返回文件个数
NN=0
FOR II=1 TO NCOUNT
IF "D"$CDIRNAME(II,5) AND !CDIRNAME(II,1)=="." AND !CDIRNAME(II,1)==".."
NN=NN+1
PUBLIC CARRAYNAME(NN) &&&根据传递的数组名和得到的目录个数创建一个全局数组
CARRAYNAME(NN)=ALLTRIM(CDIRNAME(II,1)) &&&&&将用adir()得到的文件和目录数组中目录名存放到自定义全局数
ENDIF
ENDFOR
RETURN NN
---------------------------------------------
有几个不懂请教一下：
1、能用表达式调用自定义定义函数，那调用陕西ZX1913函数 ，是不是这个表达式： for jj=1 TO 中的“陕西ZX1913("D:\")” ，它把变量传给 FUNC 陕西ZX1913， PARAMETERS CPATH。
2、retunn NN ，它返回值NN是不是返回给 “陕西ZX1913("D:\")”
3 =MESSAGEBOX(CARRAYNAME(JJ)它显示出各目录名称，那它的CARRAYNAME(JJ）与全局数组CARRAYNAME(NN)这之间如何联系？全局数组的变量能传递给CARRAYNAME(JJ）？
4在自定义函数中能创建全局数组PUBLIC CARRAYNAME(NN)？ ，书中讲（）中应是具体数字，如（1）或（2）怎么可用nn呢？在主程序中如何来调用全局数组它？ |
|
| 回頂端 |
|
 |
green
註冊時間: 2003-09-19
文章: 136
第 2 樓
|
| 發表於: 星期六 十二月 04, 2010 11:31 pm 文章主題: |
|
|
1.是
2.是
3.同一個���o,可以
4.nn已有給值,所以可以定義在���o |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 3 樓
|
| 發表於: 星期日 十二月 05, 2010 8:54 am 文章主題: |
|
|
首先谢谢！还有二个地方不明白。
1那它的CARRAYNAME(JJ）与全局数组CARRAYNAME(NN)这之间如何联系？全局数组的变量能传递给CARRAYNAME(JJ）？ 你说可以，它是如何传过去的？最好举一简单例子，好吗？
2、书上讲，创建全局数组或变量必须先定义然后再赋值，上面例子是先有了NN的值了，再定义 |
|
| 回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23
文章: 111
第 4 樓
|
| 發表於: 星期日 十二月 05, 2010 10:16 am 文章主題: |
|
|
FUNC �璁鄮X1913
1.傳回 子目緍數量,nn
2.將nn個子目緍名稱變數(CARRAYNAME(NN)),宣告為公用變數PUBLIC |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 5 樓
|
| 發表於: 星期日 十二月 05, 2010 3:01 pm 文章主題: |
|
|
| 谢谢了！ |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 6 樓
|
| 發表於: 星期日 十二月 05, 2010 3:27 pm 文章主題: |
|
|
PUBLIC CARRAYNAME(NN) &&&根据传递的数组名和得到的目录个数创建一个全局数组
但有人讲在自定义函数中创建一个全局数组：PUBLIC CARRAYNAME(NN) ，只在自定义函数本体中有效，不能被作用到调用它的主程序中去，到底如何又不明白了。 |
|
| 回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23
文章: 111
第 7 樓
|
| 發表於: 星期一 十二月 06, 2010 3:15 pm 文章主題: |
|
|
| 分辨PUBLIC,LOCAL,PRIVATE的不同.. |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 8 樓
|
| 發表於: 星期二 十二月 07, 2010 3:11 pm 文章主題: |
|
|
| =MESSAGEBOX(CARRAYNAME(JJ)它显示出各目录名称，那它的CARRAYNAME(JJ）与全局数组CARRAYNAME(NN)为什么是同一个？不明白，太纠结了，请详细指教，谢谢! |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 9 樓
|
| 發表於: 星期二 十二月 07, 2010 4:37 pm 文章主題: |
|
|
理論上子程序中的變數 結束程序後父程序是沒辦法抓取得到的
除非是故意要在子程序中將CARRAYNAME傳回給父程序
否則我覺得在子程序中下public是犯大忌
如果在for next之前已經有使用過CARRAYNAME
在子程序中是不用再去下public 搞不好還會出error |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 10 樓
|
| 發表於: 星期三 十二月 08, 2010 11:55 am 文章主題: |
|
|
| 我提供的是完整的代码。for next之前没有定义和使用过CARRAYNAME ，只在自定函数中定义。我的意思是自定义函数定义的全局数组public CARRAYNAME(NN)它能传给上面调用它的CARRAYNAME(jj)吗？ |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 11 樓
|
| 發表於: 星期三 十二月 08, 2010 1:58 pm 文章主題: |
|
|
能
但其實比較好的做法 是在進入子程序之前就先建立好CARRAYNAME這變數
將變數資料"傳遞"給自訂函數後
在自訂函數中變更的資料 自然會傳遞回給父程序 |
|
| 回頂端 |
|
|
480615
註冊時間: 2008-04-11
文章: 93
第 12 樓
|
| 發表於: 星期三 十二月 08, 2010 2:49 pm 文章主題: |
|
|
我试了在 调用前设了全局数组变量，但程序运行时出错，提示找不到变量NN
PUBLIC CARRAYNAME(NN)
FOR JJ=1 TO 陕西ZX1913("D:\")
=MESSAGEBOX(CARRAYNAME(JJ),48,"报告")
NEXT JJ |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 13 樓
|
| 發表於: 星期三 十二月 08, 2010 9:17 pm 文章主題: |
|
|
其實你的程式就某個程面來說 沒有問題可以執行
只是我盡量是不會在子程序中為了要傳遞給父程序而去使用public
是我的話我會改成以cursor來傳遞資料
只要沒有被關閉
不管是父程序或子程序 哪裡都可以被讀取到
甚至以存到文字檔讓其他執行程式一樣抓得到 |
|
| 回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23
文章: 111
第 14 樓
|
| 發表於: 星期三 十二月 08, 2010 10:18 pm 文章主題: |
|
|
| 480615 寫到: | | 我提供的是完整的代�龤Cfor next之前𤰉有定�顝M使用�eCARRAYNAME ，只在自定函�菑予w�鞳C我的意思是自定�顙��菮w�顗漸瓈����opublic CARRAYNAME(NN)它能���H上面Ǒ用它的CARRAYNAME(jj)�滿H |
PUBLIC CARRAYNAME(NN) 是逐一宣告,不是一次宣告N個
若 NCOUNT =3
是宣告了 PUBLIC CARRAYNAME(1)..PUBLIC CARRAYNAME(2)..PUBLIC CARRAYNAME(3).. |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
