Datatable数据操作
1.表格文件的导入import
在D盘中存在test1.xls文件,里面有两个sheet表,一个叫表1,一个叫表2。
利用datatable.import”d:\test1.xls”导入datatable中。
例子:获取文件中表的个数。
datatable.Import "d:\test1.xls"
int a
a=datatable.GetSheetCount
msgbox a
2.文件中一个表的导入importsheet
同上,要将表1导入datatable中的Action1表中。
利用datatable.importsheet “d”\test1.xls”,”表1”,”Action1”
例子:
Datatable.importsheet “d:\test1.xls”,”表1”,”Action1”
int a
a=datatable.GetSheet("Action1").getrowcount
reporter.ReportEvent 2,"数据表的行数为:"&a,"行"
在从外部导入表时,行数从0开始,在内部的datatable中,行数从1开始。
3.datatable数据导出export
Export是将datatable中的数据表全部导出。
例子:导出并查看是否导出。
datatable.Export("F:\1.xls"
Dim fso
Set fso=createobject("scripting.filesystemobject")
if(fso.fileexists("F:1.xls"))then
msgbox "文件存在"
end if
4.datatable数据导出一个sheet表exportsheet
Exportsheet指定datatable中的一张表导出。
例子:
datatable.ExportSheet "F:\1.xls","Action1"
Dim fso
Set fso=createobject("scripting.filesystemobject")
if(fso.fileexists("F:1.xls"))then
msgbox "文件存在"
end if
5.在datatable中增加一个表addsheet
利用addsheet来增加一个表。
例子:增加name表。
datatable.AddSheet("name")
datatable.ImportSheet"D:\test1.xls","表1","name"
int a
a=datatable.GetSheet("name").getrowcount
msgbox a
6.删除工作表deletesheet
删除工作表。只能在工作过程中删除。
例子:datatable.DeleteSheet("123")
7.读取datatable中的值RawValue
Datatable.RawValue(“列名”,表名)
例子:msgbox datatable.RawValue(1,"Action1")
8.赋值datatable中的值Value
Datatable.Value(“列名”,”表名”)
例子:
datatable.Value(1,"Action1")="123"
9.datatable中下一行setnextrow和上一行setprevrow
Datatable.setnextrow和datatable.setprevrow
10.setcurrentrow和getcurrentrow
Setcurrentrow可以设置当前的行。
Setcurrentrow(4) //设置到第四行
Getcurrentrow可以获取当前的行。
11.获取表的个数GetSheetCount
例子:获取导入表的个数。
datatable.Import("D:\test1.xls")
int a
a=datatable.GetSheetCount
msgbox a
12.获取Dtatable中表的行数GetRowCount
Datatable.getrowcount
例子:获取表1的数据行数。
datatable.AddSheet("name")
atatable.ImportSheet "D:\test1.xls","表1","name"
int a
a==datatable.GetSheet("name").getrowcount
msgbox a
13.获取列数Getparametercount
例子:
datatable.AddSheet("name")
datatable.ImportSheet "D:\test1.xls","表1","name"
int a
a=datatable.GetSheet("name").getparametercount
msgbox a
14.参数Parameter的用法
(1)addparameter(“参数列名”,”参数值”)
例子:
datatable.AddSheet("name")
datatable.ImportSheet "D:\test1.xls","表1","name"
set str=datatable.GetSheet("name").addparameter("c","123")
msgboxstr
int a
a=datatable.GetSheet("name").getparametercount
msgbox a
(2)deleteparameter(“参数名”)
datatable.AddSheet("name")
datatable.ImportSheet "D:\test1.xls","表1","name"
datatable.GetSheet("name").deleteparameter("a")
int a
a=datatable.GetSheet("name").getparametercount
msgbox a
(3)getparameter(“列名”)
datatable.AddSheet("name")
datatable.ImportSheet "D:\test1.xls","表1","name"
int b
b=datatable.GetSheet("name").getrowcount
For i=1 to b
Set str=datatable.GetSheet("name").getparameter("a")
msgbox str
datatable.SetNextRow
Next