VFP 愛用者社區

[aforangel]

main.prg 有下面一句
create table c:\abc free (name C(10), tel C(10), address C(70))

OK!! 成功

但如果我想改成
cmdline = "create table c:\abc free (name C(10), tel C(10), address C(70))"
然後再去執行這句command, 請問是怎做

[garfield]

方法有很多種,
用點不一樣的方式,

cmdline = "create table c:\abc free (name C(10), tel C(10), address C(70))"
ExecScript( cmdline )

[aforangel]

抱歉 garfield...這是9.0的command嗎?
我是vfp 6.0, 執行時說 execscript 不存在

[sean27]

簡單的方法
cmdline = "create table c:\abc free (name C(10), tel C(10), address C(70))"
&cmdline

[jerryclt]

小弟是這樣用的:
full_path=SYS(5)+SYS(2003)
filename='My_table'
_table_str=''
_index_str=''
_fp=FOPEN('我的資料表格文字檔.TXT',0)
IF _fp#-1
　　_mi2=FSEEK(_fp,0,2)
　　_mi1=FSEEK(_fp,0,0)
　　_table_str=FREAD(_fp,_mi2)
　　_fp1=FOPEN('我的資料索引文字檔.TXT',0)
　　IF _fp1#-1
　　　　_mi2=FSEEK(_fp1,0,2)
　　　　_mi1=FSEEK(_fp1,0,0)
　　　　_index_str=FREAD(_fp1,_mi2)

　　　　CREATE TABLE &full_path\&filename (&_table_str)
　　　　&_index_str
　　ELSE
　　　　*　錯誤處理常式
　　ENDIF
ELSE
*　錯誤處理常式
ENDIF
=FCLOSE(_fp1)
=FCLOSE(_fp)

*　我的資料表格文字檔.TXT 內容
*　field_001 C(15),field_002 D,field_003 I,field_004 I,field_005 N(8,2)

*　我的資料索引文字檔.TXT 內容
*　INDEX ON field_001 TAG field_001 ADDITIVE

好處是...可以客製化

[marvin]

天啊, 我還不知道有 ExecScript 這指令 !!!