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 | 阅读 187 次 | 评论 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 | 阅读 378 次 | 评论 2 条

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

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

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

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

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

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

VFP 控制 EXCEL2003 之 003、真正的全屏显示数据

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .DisplayFullScreen = .T. .CommandBars(1).Enabled = .F. .CommandBars("Full Screen").Controls(1).Onaction = "RestoreWindow" WITH .ActiveWindow .DisplayHeadings = .F. .DisplayHorizontalScr...
Excel问题 | 2018-09-17 18:50 | 阅读 210 次 | 评论 0 条

VFP 控制 EXCEL2003 之 002、将应用程序和当前活动窗口最大化

  在 Excel 中使用 Window 对象的 WindowState 属性返回或设置窗口的状态,该属性取值可为 XlWindowState 枚举常量之一,分别对应着窗口的 3 种状态。 XlWindowState 枚举 指定窗口的状态。 名称 值 描述 xlMaximized -4137 最大化 xlMinimized -4140 最小化 xlNormal -4143 正常 oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .WindowState = x...
Excel问题 | 2018-09-16 07:59 | 阅读 220 次 | 评论 0 条

VFP 控制 EXCEL2003 之 001、修改应用程序和活动窗口的标题文本

oExcel=CreateObject("Excel.Application") WITH oExcel .WorkBooks.Add .Caption = "XXXX信息管理系统" .ActiveWindow.Caption = "" .Visible = .T. ENDWITH -------------------------------- 作者在 2018-09-16 08:00:31 补充以下内容 -------------------------------- 说明   代码中的 oExcel 代表 Applica...
Excel问题 | 2018-09-15 16:43 | 阅读 214 次 | 评论 0 条

生成数据库中表间关系名

* 生成数据库中表间关系名 CLEAR CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20)) OPEN DATABASE Mdf\Comm_Dbf nRelas=ADBOBJECTS(aRela,"RELATION") =ASORT(aRela) FOR i=1 TO nRelas INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3]...
其它问题 | 2018-08-22 22:29 | 阅读 190 次 | 评论 0 条

生成数据库中表结构明细

* 生成数据库中表结构明细 CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE Made_Dbf\T_Name (表名 c(30),字段名 c(20),字段说明 c(100),字段类型 c(1),索引类型 c(10),索引方式 c(4),宽度 n(3),小数位 n(1),表说明 c(100)) OPEN DATABASE Made_Dbf\Comm_Dbf nTables=ADBOBJECTS(aTable,"TABLE") =ASORT(aTable) FOR i=1 TO nTables USE ("Made_D...
其它问题 | 2018-08-22 22:25 | 阅读 224 次 | 评论 0 条

VFP正则表达式应用:文本内容换行

原文本格式如下: 05 14 15 16 18 + 02 0605 14 15 16 25 + 02 0605 14 15 16 26 + 02 0605 14 15 16 27 + 02 0605 14 15 18 25 + 02 0605 14 15 18 26 + 02 0605 14 15 18 27 + 02 0605 14 15 25 26 + 02 0605 14 15 25 27 + 02 0605 14 15 26 27 + 02 0605 14 16 18 25 + 02 0605 14 16 18 26 + 02 0605 14 16 18 27 ...

VFP正则表达式应用:删除每一行行尾的指定字符

因为这几个字符在行中也是出现的,所以肯定不能用简单的替换实现 比如 12345 1265345 2345 需要删除每行末尾的“345”,最终文本为: 12345 1265 2 =================================== Re = Createobject("VBScript.RegExp") Re.Global = .T. Re.Ignorecase = .F. Re.Pattern ="345$" Re.MultiLine= .T. cStr="12345 1265345"+CHR(13)+CHR(10)+"2345...

VFP正则表达式应用:替换指定内容到行尾

原始文本如下面两行 abc aaaaa 123 abc 444 希望每次遇到“abc”,则替换“abc”以及其后到行尾的内容为“abc efg” 即上面的文本最终替换为: abc efg 123 abc efg ===================================== CLEAR Re = Createobject("VBScript.RegExp") Re.Global = .T. Re.Ignorecase = .F. RE.Pattern ="abc.*" cStr="abc aaaaa"+CHR(13)+CHR(10)+"123...

VFP正则表达式应用:数字替换

希望把 asdadas123asdasdas456asdasdasd789asdasd 替换为: asdadas[123]asdasdas[456]asdasdasd[789]asdasd 在VFP中也可以做到,但过程比较复杂 CLEAR Re = Createobject("VBScript.RegExp") Re.Global = .T. Re.Ignorecase = .F. RE.Pattern ="(\d{3})" cStr="asdadas123asdasdas456asdasdasd789asdasd" ?cStr ?Re.Replace(cS...

正则表达式在VFP中BROWSE中的简单应用

查找出 XM 字段中除汉字以外的字符,并替换掉这些字符。 CREATE CURSOR tt (xm c(10),xm1 c(10)) INSERT INTO tt (xm) VALUES ("河南\省") INSERT INTO tt (xm) VALUES ("河-北省") INSERT INTO tt (xm) VALUES ("北,22京市") INSERT INTO tt (xm) VALUES ("上海市") INSERT INTO tt (xm) VALUES ("西安市") re = Createobject("VBScript.RegExp") ...

VFP之正则表达式提取指定文本内容1

CLEAR cStr = "苹果:iphone_5s;诺基亚:Nokia_1020" * 提取出cSrt中的"iphone_5s","Nokia_1020" Reg = Createobject("VBScript.RegExp") Reg.Global = .T. Reg.Ignorecase = .T. Reg.Pattern = "\w+" oExec=Reg.Execute(cStr) FOR i=0 TO oExec.Count-1 ?oExec.item(i).Value ENDFOR ...

正则表达式删除文本内容中的空行

* 删除没有空格的空行 clear cchr=chr(10)+chr(13) cstr="111111"+replicate(cchr,3)+"222222"+replicate(cchr,5)+"3333333"+replicate(cchr,10)+"4444" ?"=====" ?cstr re = Createobject("VBScript.RegExp") re.Global = .T. re.Ignorecase = .T. re.Pattern = "\r\n" && r 代表回车,n 代表换行 ?"=====" ?re.replac...
浏览196948次
最新评论