摘要: 创建新目录$dir = 'C:\test1';mkdir $dir,0777 or warn "error: $!";重命名目录移动目录my $source_dir = 'C:\test2';my $destination_dir = 'C:\test1';system("move $source_dir $destination_dir");删除目录# 删除的目录必须是空目录$dir = 'C:\test1';rmdir($dir) or warn "error: $!" 阅读全文
posted @ 2012-07-16 17:57 NikeyL 阅读(172) 评论(0) 推荐(0) 编辑
摘要: 打开工作簿Sub OpenWorkbook() Workbooks.Open "test.xlsm"End Sub 阅读全文
posted @ 2012-07-13 00:17 NikeyL 阅读(288) 评论(0) 推荐(0) 编辑
摘要: 读取MS SQL Server数据表数据,并将它保存到excel工作表中Sub ReturnSQLrecord() 'sht 为excel工作表对象变量,指向某一工作表 Dim i As Integer, sht As Worksheet '定义数据链接对象 ,保存连接数据库信息 '使用ADODB,须在菜单的Tools->References中添加引用“Microsoft ActiveX Data Objects library 2.x” Dim cn As New ADODB.Connection '定义记录集对象,保存数据表 Dim... 阅读全文
posted @ 2012-07-12 23:10 NikeyL 阅读(1536) 评论(0) 推荐(1) 编辑
摘要: 显示工作簿所在目录Sub DisplayPath() Debug.Print ThisWorkbook.PathEnd Sub 阅读全文
posted @ 2012-07-12 23:10 NikeyL 阅读(195) 评论(0) 推荐(0) 编辑
摘要: 获取单元格中的内容Sub GetCellValue() Dim cell_A1 As String, cell_B1 As String cell_A1 = ActiveSheet.Range("A1").Value cell_B1 = ActiveSheet.Range("B1").Value Debug.Print cell_A1 Debug.Print cell_B1End Sub 阅读全文
posted @ 2012-07-12 23:01 NikeyL 阅读(278) 评论(0) 推荐(0) 编辑
摘要: 新增表单Sub AddNewsheet() Sheets.AddEnd SubSub AddNewSheet2() '若有同名的sheet已经存在时,使用该种方法添加表单,会报错 Sheets.Add.Name = "NewSheet2"End Sub修改表单名称Sub RenameSheet() Sheets("Sheet23").Select Sheets("Sheet23").Name = "NewName"End Sub删除表单Sub DeleteSheet() Application.Displa 阅读全文
posted @ 2012-07-12 19:21 NikeyL 阅读(756) 评论(0) 推荐(0) 编辑
摘要: Perl实现HTML2TXT中文转换use HTML::TreeBuilder;use HTML::FormatText; open OUTPUT,">output.txt";$file = "C:/test.html";$tree = HTML::TreeBuilder->new->parse_file("$file"); $formatter = HTML::FormatText->new(leftmargin => 3, rightmargin => 100);print OUTPUT $fo 阅读全文
posted @ 2012-07-01 22:38 NikeyL 阅读(853) 评论(0) 推荐(0) 编辑
摘要: '删除超链接地址Sub RemoveLink()'Remove all hyperlinks from the active sheetActiveSheet.Hyperlinks.Delete'用下面的代码亦可'Cells.Hyperlinks.DeleteEnd Sub'获取超链接地址Sub getLink()Dim hlkTemp As HyperlinkFor Each hlkTemp In ActiveSheet.Hyperlinks'将抽取的超链接放在包含超链接单元格的后面hlkTemp.Range.Offset(0, 1).valu 阅读全文
posted @ 2012-07-01 22:22 NikeyL 阅读(631) 评论(0) 推荐(0) 编辑
摘要: 第十三章 Perl的面向对象编程by flamephoenix 一、模块简介 二、Perl中的类 三、创建类 四、构造函数实例变量 五、方法 六、方法的输出 七、方法的调用 八、重载 九、析构函数 十、继承 十一、方法的重载 十二、Perl类和对象的一些注释本章介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象,还包括继承、方法重载和数据封装等内容。一、模块简介模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。(引用见第x章引用)。详见http://www.metronet.com的perlmod和perlobj。在用其它语言进行面向对象 阅读全文
posted @ 2012-06-24 22:39 NikeyL 阅读(140) 评论(0) 推荐(0) 编辑
摘要: 第十二章 Perl5中的引用/指针by flamephoenix一、引用简介二、使用引用三、使用反斜线(\)操作符四、引用和数组五、多维数组六、子程序的引用 子程序模板七、数组与子程序八、文件句柄的引用一、引用简介引用就是指针,可以指向变量、数组、哈希表(也叫关联数组)甚至子程序。Pascal或C程序员应该对引用(即指针)的概念很熟悉,引用就是某值的地址,对其的使用则取决于程序员和语言的规定。在Perl中,可以把引用称为指针,二者是通用的,无差别的。引用在创建复杂数据方面十分有用。Perl5中的两种引用类型为硬引用和符号引用。符号引用含有变量的名字,它对运行时创建变量名并定位很有用,基本上,. 阅读全文
posted @ 2012-06-24 22:37 NikeyL 阅读(144) 评论(0) 推荐(0) 编辑