使用VFP读取EXCEL中的数据示例
*!* *****数据导入程序，由“学生基本基本情况表模板.xls”导入数据
*!* ***使用VFP控制EXCEL表，计取中指定列的内容***********
*!* "学生基本基本情况表模板.xls"的数据布局
*!* cells(1,1):“标题”
*!* cells(2,1):校区
*!* cells(2,3):学历
*!* cells(2,5):专业
*!* cells(2,6):班级
*!*
*!*
set safe off
set talk on
LOCAL inf(4) as String
*dele file C:\MyDocu~1\Resume.xlw
objExcel = CreateObject("Excel.Application") &&创建一个EXCEL应用程序实例
wjm=getfile("xls")
objExcel.Workbooks.Open(wjm) &&调用workbooks(Microsoft Excel 应用程序;
中当前打开的所有 Workbook 对象的集合。);
对象的open方法程序来打开指定的文件，并为;
打开的文件创建一个新的工作簿
*objexcel.visible=.f.
***下面的代码判断出生日期字段的格式是否满足要求***
*IF !varTYPE(objexcel.cells(10,6))="d"
* MESSAGEBOX("出生日期字段不满足格式要求，不能导入，请将出生日期字段修改为:"+CHR(13);
+"mm.dd.yy的格式,如:05.19.83 表示1983年5月19 然后再运行此导入程序")
* RETURN
*ENDIF
inf(1)=substr(objexcel.cells(2,1).value,7)&&校区
Inf(2)=objexcel.cells(2,4).value&&学历
inf(3)=objexcel.cells(2,6).value&&专业
inf(4)=objexcel.cells(2,7).value&&班
LOCAL nrow as Number ,i as Number
i=0
*MESSAGEBOX("计算行数")
*MESSAGEBOX(objexcel.cells(5,1).value)
*MESSAGEBOX(VARTYPE(objexcel.cells(22,1).value))
DO WHILE .t.
i=i+1
?objexcel.cells(i,1).value
IF !VARTYPE(objexcel.cells(i,1).value)="C"
nrow=i-1
EXIT
ENDIF
ENDDO
*nrow=20
LOCAL arecord(16)
*MESSAGEBOX("循环添加记录")
USE zlb
disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条")
disinf("正在添加记录")
FOR i=4 TO nrow
arecord(1)=objexcel.cells(i,1).value&&学号
arecord(2)=objexcel.cells(i,2).value&&姓名
arecord(3)=objexcel.cells(i,3).value&&性别
arecord(4)=objexcel.cells(i,4).value&&籍贯
arecord(5)=objexcel.cells(i,5).value&&民族
*MESSAGEBOX(VARTYPE(objexcel.cells(i,6).value))
IF VARTYPE(objexcel.cells(i,6).value)="C"
arecord(6)=RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/';
+LEFT(objexcel.cells(i,6).value,2)
ELSE
arecord(6)= RIGHT(STR(objexcel.cells(i,6).value,5,2),2);
+"/"+"01"+"/";
+LEFT(STR(objexcel.cells(i,6).value,5,2),2)
ENDIF
&&arecord(6)=IIF(VARTYPE(objexcel.cells(i,6).value)="c",RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/'+LEFT(objexcel.cells(i,6).value,2),;
RIGHT(STR(objexcel.cells(i,6).value,5,2),2)+"/"+"01"+'/'+LEFT(STR(objexcel.cells(i,6).value,5,2),2))&&出生年月
arecord(7)=LEFT(ALLTRIM(STR(objexcel.cells(i,8).value,6,0)),6)&&邮政编码
arecord(8)=objexcel.cells(i,7).value&&通讯地址
arecord(9)=objexcel.cells(i,9).value &&收信人
arecord(10)=iif(!ALLTRIM(objexcel.cells(i,10).value)=="",objexcel.cells(i,10).value;
,"无")&&家庭电话
arecord(11)=inf(3)&&专业
arecord(12)=inf(4)&&班级
arecord(13)=objexcel.cells(i,11).value&&寝室号码
arecord(14)=STR(objexcel.cells(i,12).value,7,0)&&寝室电话
arecord(15)=inf(1)&&校区
arecord(16)=inf(2)&&学历
SELECT zlb
APPEND FROM ARRAY arecord
ENDFOR
disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条")
disinf("记录添加完毕，共添加了"+ALLTRIM(STR(nrow-3))+"条记录，请查检")
INKEY(3)
WAIT CLEAR
****定义日期转换函数，此函数能将各种格式的日期转换成mm/dd/yy的格式****
****如果要转换的日期只有年和月，则自动添加日为'01'***
*!* FUNCTION datetran
*!* PARAMETERS soudate
*!* IF VARTYPE(soudate)="N"
*!* DO case
*!* CASE LEN(souDATE)
***关闭工作簿，退出EXCEL
objexcel.quit
RELEASE objexcel
*!* objexcel.save
*!* *objExcel.ActiveWorkbook.saved=.f.
*!* objexcel.Quit &&退出
*!* RELEASE objexcel
*!* retu
2022-02-23 12:10:56
7KB
1
dataGridView控件中的数据导出到Excel所需要的.dll文件
2022-02-21 17:01:35
55KB
1
在html中利用js读取动态网站从服务器端返回的数据进行显示
1、js.html 页面
需要引入 执行jquery的js文件
<HTML>
<HEAD>
<META name=Generator content=EditPlus>
<META name=Author content="">
<META name=Keywords content="">
<META name=Description content="">
[removed][removed]
[removed]
$(function(){
//$("#loaddata").c
2022-02-21 11:23:32
47KB
1
心电图分类
使用LSTM对几种不同心脏病中的ECG信号进行分类。 来自PTB诊断数据库的数据。
2022-02-18 16:55:16
44KB
1
提取器
用于从Patreon或OnlyFans中提取数据的脚本包。
要求
您需要与npm一起安装Node.js。
在节点14上进行了测试。
设置
# Install node_modules
cd extractor-server
npm install
如何使用
首先，运行服务器：
cd extractor-server
npm start
# or: node ./index.js
粉丝
要下载给定用户的数据：
打开浏览器到该用户的OnlyFans页面（例如，用户testuser https://onlyfans.com/testuser ）
打开开发工具（Ctrl + Shift + I），然后打开控制台选项卡
将服务器在控制台中输出的脚本复制到浏览器控制台，然后按Enter
停留在页面上，直到脚本显示“ Downloading finished x/x (100%)为止
2022-02-10 16:34:26
6.24MB
1
C++实现从.txt文件中读取数据存入数组，将数组数据写入.txt文件.rar
C++实现从.txt文件中读取数据存入数组，将数组数据写入.txt文件.rar
2022-01-30 22:06:50
982KB
16 series Li-ion secondary battery protection, Analog Front End IC
2022-01-25 00:19:03
1.54MB
1
游戏开发中的数据结构和算法——Data Structures and Algorithms for Game Developers。
2022-01-24 03:21:36
6.88MB
1