获取指定数据库中所有表的名称

OPEN DATABASE "DATA1.DBC" LNTABLES=ADBOBJECTS(ATABLE,"TABLE") FOR LNI=1 TO LNTABLES ?ATABLE(LNI) ENDFOR
默认分类 | 2021-04-14 12:20 | 阅读 28 次 | 评论 0 条

字符串转换为日期时间型数据

a='20210414173928' b= TRANSFORM(INT(VAL(a)),"@ 9999,99,99,99,99,99") ?DATETIME(&b)
默认分类 | 2021-04-14 11:57 | 阅读 29 次 | 评论 0 条

分别提取“-”两边的数字,并分别求和

CLEAR TEXT TO lcText NOSHOW TEXTMERGE 62B19B11-B12A9B 62B19B11-A2B 62B19B10-B11J 62B19B10-0B 62B19B4-B10J 62B19B4-A2B 62B19-B25J 62B19-B4J 62B17-B19J 62B17-B2B 62B16A16B3A3-A4B18B 62B16A16B3A3-A7B 62B16A16B3-B4B14J 62B16A16B3-A3J 62B16A16-A17B 62B16A16-B3J 88B5-A3A4J ENDTEXT ...
默认分类 | 2021-04-14 10:02 | 阅读 32 次 | 评论 0 条

统计首字母的个数

TEXT TO lcStr NOSHOW TEXTMERGE Cryopreservation is the most efficient method for long-term preservation of mammalian sperm. However, freeze-thawing procedures may strongly impair the sperm function and survival and thus decrease the reproductive performance. ENDTEXT ALINES(laStr, lcStr, 4 + ...
默认分类 | 2021-04-14 10:00 | 阅读 25 次 | 评论 0 条

判断 EXCEL 程序是否启动

LOCAL lOldSetOpt,mChanNum lOldSetOpt = DDESetOption("SAFETY") = DDESetOption("SAFETY",.F.) mChanNum = DDEInitiate('Excel', 'SYSTEM') &&EXCEL是否已经打开 IF mChanNum # -1 = messagebox('程序 EXCEL 已经打开,请先将其关闭!', 64, '系统提示!') = DDETerminate(mChanNum) = DDESetOption("SAFETY",lOld...
EXCEL | 2021-04-11 21:04 | 阅读 42 次 | 评论 0 条

输出图形_字母三角形_1

* A * BCD * EFGHI * JKLMNOP * QRSTUVWXY CLEAR ln = 0 FOR ln1 = 1 TO 5 ? SPACE(5 - ln1) FOR ln2 = 1 TO 2 * ln1 - 1 ln = ln + 1 ?? CHR(ln + 64) ENDFOR ENDFOR
默认分类 | 2021-04-07 22:56 | 阅读 73 次 | 评论 0 条
文章分类
文章归档
最新评论