VFP中CHRTRAN()函数的妙用

作者:csyx ?CHRTRAN("a,b,c,d,e,f", "abcdef", "123456")

VFP获取系统默认打印机的设备名

作者:吹水佬 DECLARE long GetDefaultPrinter IN winspool.drv string@,long@ nlen = 0 GetDefaultPrinter(NULL, @nLen) cName = SPACE(nLen) IF GetDefaultPrinter(@cName, @nLen) != 0 ? LEFT(cName,nLen-1) ELSE ? "没有默认打印机" ENDIF
其它问题 | 2023-03-30 10:15 | 阅读 715 次 | 评论 0 条

两个日期之间共有多少月份的计算公式

(YEAR(Date2) - YEAR(Date1)) * 12 + MONTH(Date2) - MONTH(Date1) + 1 其中 Date2 >= Date1

VFP导航按钮是否可用

* 导航按钮是否可用 DO CASE CASE BETWEEN(RECCOUNT(),0,1) && 记录数为0或1 ThisForm.Command1.Enabled = .F. ThisForm.Command2.Enabled = .F. ThisForm.Command3.Enabled = .F. ThisForm.Command4.Enabled = .F. CASE RECCOUNT()>1 AND RECNO()=1 && 在第一条记录...

合并单元格

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. * 指定区域的单元格分行合并 .WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.) .ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并" * 指定区域的单元格合并为一个单元格 .WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
Excel问题 | 2021-06-02 07:26 | 阅读 814 次 | 评论 0 条

隐藏指定行或列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. .ActiveCell.EntireRow.Cells(5, 1).Value = 5 .Worksheets(1).Columns(6).Hidden = .T. .Worksheets(1).Rows(6).Hidden = .T. ENDWITH
Excel问题 | 2021-06-02 07:25 | 阅读 746 次 | 评论 0 条

删除数据区域的空白行列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) * 添加测试数据 .ActiveSheet.Cells(2, 2).Value = "abcd" .ActiveSheet.Cells(4, 4).Value = "abcd" .ActiveSheet.Cells(6, 6).Value = "abcd" .ActiveSheet.Cells(100, 10).Value = "ABCD" *删除空白行 lnRow = .ActiveSheet.U...
Excel问题 | 2021-06-02 07:23 | 阅读 844 次 | 评论 0 条

构造VFP中SQL命令字段表达式

* 构造VFP中SQL命令字段表达式 CREATE CURSOR km (xk c(10)) INSERT INTO km VALUES ("语文") INSERT INTO km VALUES ("数学") INSERT INTO km VALUES ("英语") INSERT INTO km VALUES ("物理") INSERT INTO km VALUES ("化学") INSERT INTO km VALUES ("思想品德") INSERT INTO km VALUES ("历史") lcStr = "zkzh, xm" SCAN lcStr = ...

二进制与十进制互转

CLEAR n10=ASC('D') c02='' DO WHILE n10 > 0 n = MOD(n10, 2) n10 = INT(n10 / 2) c02=STR(n, 1) + c02 ENDDO MESSAGEBOX(c02)
算法 | 2020-06-15 10:28 | 阅读 2006 次 | 评论 0 条

返回除汉字以外的所有字符

cStr = "中华人民共和国美335*226利坚合众MF-335国大不7*3列颠" re = Createobject("VBScript.RegExp") re.Global = .T. re.Ignorecase = .T. re.Pattern = "[\u4e00-\u9fa5]" ********************************** * 下面代码,返回所有汉字 * *re.Pattern = "[^\u4e00-\u9fa5]" **************************** ?re.replace(cStr,"")

vfp 时间戳与时间(年月日时分秒格式)之间互相转换

时间转换为时间戳(结果为秒) datetime()-datetime(1970,1,1,0,0,0) 时间戳(为:1548753480,结果以秒为单位)转换为时间 datetime(1970,1,1,0,0,0)+1548753480

读入国家授时中心数据

XmlDoc=CREATEOBJECT('Microsoft.XMLDOM') XmlDoc.async=.F. &&设置同步下载 Ret=XmlDoc.Load('http://www.time.ac.cn/timeflash.asp?user=flash') &&读入XML文件(国家授时中心数据) IF Ret=.T. XMLTOCURSOR(XmlDoc.xml,'tDatetime',0) SELECT tDatetime BROWSE ENDIF

json日期时间转换为VFP的日期时间

?DATETIME(1970,1,1,0,0,0)+(1542351588000/1000) 1542351588000 为1970-1-1 00:00:00 到指定日期时间时的毫秒数 结果为:2018-11-16 06:59:48

VFP 控制 EXCEL2003 之 010、快速画表格

oExcel = CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add WITH .Cells(1,1).Resize(5,5) .Value = "ABC" .Borders.LineStyle = 1 .BorderAround(-4119,, 37) && 加外框及颜色,此行代码也可以不要。 ENDWITH .Visible = .T. ENDWITH
Excel问题 | 2018-09-29 14:25 | 阅读 1381 次 | 评论 0 条

VFP 控制 EXCEL2003 之 009、应用于 Workbook 对象的 SaveAs 方法

  保存对不同文件中的工作表的更改。 语法 expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) expression 必需。该表达式返回上述对象中一个对象。 参数 Filename 字符型,可选。   该字符串表示要保存的文件名。一定要包含完整路径。如果不指...
Excel问题 | 2018-09-23 08:50 | 阅读 3438 次 | 评论 2 条

VFP 控制 EXCEL2003 之 008、应用于 Workbook 对象的 Close 方法

  关闭对象。 语法 object.Close(SaveChanges, Filename, RouteWorkbook) 参数 SaveChanges 逻辑型,可选。   如果工作簿没有改变则忽略此参数;   如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿,则仍然忽略此参数;   如果工作簿发生了改变并且没有在另外的窗口中打开,则此参数将指定是否在工作簿中保存所发生的更改。 取值与操作如下表所示: 值 作用 .T. 将改变保存到工作簿。如果该工作簿尚未命名,则使用 FileName 指定的名称。如果省略 FileName 参数,则要求用户输...
Excel问题 | 2018-09-23 08:28 | 阅读 1622 次 | 评论 0 条

VFP 控制 EXCEL2003 之 007、应用于 Workbook 对象的 Open 方法

  打开一个工作簿。返回一个 Workbooks 对象。 语法 object.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 参数 FileName 字符型,必需。要打开的工作簿的文件名。 UpdateLinks 整型,可选。指定文件中链接的更新方式。   如...
Excel问题 | 2018-09-23 08:24 | 阅读 1790 次 | 评论 0 条

VFP 控制 EXCEL2003 之 006、应用于 Workbooks 对象的 Add 方法

  新建工作簿。新建的工作簿将成为活动工作簿。返回 Workbook 对象。 语法 object.Add(Template)   该表达式返回一个 Workbooks 对象。 参数 Template 字符型或整型,可选。确定如何创建工作簿。   如果本参数指定为一现有 Microsoft Excel 文件名的字符串,那么创建新工作簿将以该指定的文件作为模板。   如果本参数为常量,新工作簿将包含指定类型的单张工作表。可为下表 XlWBATemplate 枚举中常量之一。XlWBATemplate 枚举 常量 值 描述 xlWBATChart -410...
Excel问题 | 2018-09-23 08:19 | 阅读 1826 次 | 评论 0 条

VFP 控制 EXCEL2003 之 005、应用于 Sheets 对象的 Add 方法

  新建工作表、图表或宏表。新建的工作表将成为活动工作表。使用 Add 方法可创建一个新的工作表并将它添加到集合。 语法 表达式 .Add( Before, After, Count, Type ) 表达式 一个代表 Sheets 对象的变量。 参数 名称 必需/可选 数据类型 说明 Before 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之前。 After 可选 对象型 指定工作表的对象,新建的工作表将置于此工作表之后。 Count 可选 数值型 要添加的工作表数。默认值为 1。 Type 可选 数值型 指定工作表类型。可以...
Excel问题 | 2018-09-23 08:10 | 阅读 2369 次 | 评论 0 条

VFP 控制 EXCEL2003 之 004、限定工作簿窗口大小

  实现仅包含 9 X 9 个单元格区域的窗口界面。 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add oRange = .Range("A1:I9") WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScrollBar = .F. .DisplayVerticalScrollBar = .F. .DisplayWorkbookTab...
Excel问题 | 2018-09-18 19:29 | 阅读 1536 次 | 评论 0 条
浏览376326次