暂无个人介绍
‘活动工作表打印 Sub Print() ActiveSheet.PrintOut End Sub ‘设置页面 Sub PrintSh() With WorkSheets(“Sheet1”) ‘设置打印方向 .
可以利用RUBY方便的文件操作和正则处理,将SQL语句中关键字小写的地方改为大写,与其他语言相比,其处理更加方便,语句更加简洁 cat FormatSql.rbwhile line=gets line1=line.
1.首先要获得汉字的支持,必须在文件开头加入以下两句 require "jcode"$KCODE="utf8"2.调用系统命令可用反斜杠调用,如 uname=`who`3.正则表达式re=/地址:(.
'添加工作表 Sub Addsh_2() Dim i As Integer Dim sh As Worksheet For i = 1 To 10 Set sh = Sheets.
引用 经典Excel VBA代码 2010-06-15 15:03:18| 分类: 默认分类 | 标签: |字号大中小 订阅 本文引用自晗露《经典Excel VBA代码》 引用 晗露 的 经典Excel VBA代码经典Excel VBA代码 收藏 VBA基础在大家的关注声中即将告一段落了,有许多经典的VBA操作我们只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高。
函数作用:自动获取指定月的工作日 '################################################################ Sub 自动填充工作日(month1 As Integer) '获取指定月份天数 Dim days ...
1.Excel中激活WordApplication.ActivateMicrosoftApp xlMicrosoftWord2.Excel中打开文件查找框 Application.FindFile3.
Sub 程序自动加行号() Dim nLineNum Dim sLindNum As String Dim selRge As Range '以下变量用于"将注释改为蓝色" Dim lineProgramRange As Range Dim comment...
‘将文件夹下的所有txt文件加载到本文档中 Function InsertIntoDoc(strPath as String) Set fso=CreateObject("Scripting.FileSystemObject”) Set objFolder=fso.
语法高亮可使用VBA中的查找替换功能,如对于Delphi可先查找到关键字,然后将其设为蓝色即可,具体代码为: 1 Sub Replace1() 2 3 Dim i As Integer 4 5 Dim arr(15) as String 6 7 arr(0)="type" ...
最近在学VBA,因为在看《WORD排班艺术》一书中,上面所写到我们只用到OFFICE的10%的功能,还有90%没有使用,或者我们不知道如何使用,故决定深入研究一番VBA,通过这几天对VBA的初步了解,感觉这里面确实有很多学问,如果能活用VBA宏代码,的确能省事不少,而且就可以说精通OFFICE了吧,...
转贴:perl模块 Getopt::Std模块的使用 2011-03-30 13:37:07| 分类: 默认分类 | 标签: |字号大中小 订阅 Getopt::Std模块的使用:初始设置: 在程序中加入如下代码: use Getopt::Std; use vars qw($opt_d $opt_f $opt_p); getopts('d:f:p'); (注意上两行的参数要对应)[ 解释一下"d:f:p",d和f后有冒号,表示-d,-f后面要跟参数。
可用如下的PERL程序进行目录的浏览 执行如: perl getdir.py D:\\设计模式Delphi版 #getdir.py sub listfile{ my $dir = shift @_; opendir DH, $dir; forea...
[1.os]1.重命名:os.rename(old, new)2.删除:os.remove(file)3.列出目录下的文件 :os.listdir(path)4.获取当前工作目录:os.getcwd()5.改变工作目录:os.chdir(newdir)6.创建多级目录:os.makedirs(r"c:/python /test")7.创建单个目录:os.mkdir("test")8.删除多个目录:os.removedirs(r"c:/python") #删除所给路径最后一个目录下所有空目录。
在python脚本中可以用pdb进行调试,具体方法如下: 1.使用run语句调试,格式为: run(statement[,globals[,locals]]) 参数含义如下 statement:要调试的语句块,以字符串的形式globals:可选参数,设置statement运行的全局环境变量l...
一款名为 Beautiful Soup 的常用配套工具帮助 Python 程序理解 Web 站点中包含的脏乱“基本是 HTML” 内容。是用Python写的一个HTML/XML的解析器,它可以很好的处理不规范标记并生成剖析树(parse tree)。
#define MAX 100 typedef struct node { char info; struct node *llink,*rlink; }TNODE; char pred[MAX],inod[MAX]; TNODE *restore(char *,ch...
import cmathimport mathimport sys def get_float(msg,allow_zero): x = None while x is None: try: x = float(input(msg)) if not allow_zero and abs(x) < sys.
subprocess被用来替换一些老的模块和函数,如:os.system、os.spawn*、os.popen*、popen2.*、commands.*。可见,subprocess是被推荐使用的模块。 import subprocess returnCode = subprocess.
#!/usr/bin/pythonimport urllibgoogle=urllib.urlopen('http://www.google.com')print 'http header:/n',google.
#!/usr/bin/pythonimport urllibdef cbk(a,b,c): per=100.0 * a * b /c if per>100: per=100 print '%.
sgmllib.py 包含一个重要的类: SGMLParser。SGMLParser 将 HTML 分解成有用的片段, 比如开始标记和结束标记。一旦它成功地分解出某个数据为一个有用的片段,它会根据 所发现的数据,调用一个自身内部的方法。
Delphi调用JavaScript解析Json 1.首先加入ComObj单元2.加入函数functin RunJs(const JsCode,JsVar:string):string;var script:OleVariant;begin try Script :=CreateOleObject('ScriptControl'); Script.
提取图标到ImageList const SFile='D:\windows\system32\shell32.dll';var i:integer; Count:integer; hIcon:HWND; icon:TICON;begin Count :=-1; Count :=ExtractIcon(HInstance,SFile,Count); icon :=TICon.
判断是否联网 在uses中加入WinInetif InternetCheckConnection('http://www.sina.com.cn',1,0) thenbegin showmessage('在线');endelsebegin showmessage('离线');end; 或...
[说明] 流程图的功能是对预处理后的正文进行排版输出。 假定:预处理后的正文存放在字符串 S 中,S 由连续的单词组成,单词由连续的英文字母组成。在预处理过程中已产生以下信息: 变量 NW 存放正文中单词的个数,数组元素 SL(1)存放正文中第 1 个单词在S中的字符位置,SN(1) 存放正文中第 1 个单词的长度。
[说明] 将自然数依次排列成如下所示的数码排列: 1 2 3 4 5 6· 7 8 9 l0 l1 l2 l3 14 l5 l6 ... 流程图5a和流程图 b 都能输出从头数起的第 1 个数码。
阅读下列程序说明和 C 程序,把应填入其中__n__ 处的字句,写在答卷的对应栏内。 [程序说明] (1)本程序利用辗转相除法求两个均不超过100次的多项式A,B的最大公因式。 例: A(x)=x3一x2+x一1=(x2+1)(x一1) B(x)=x5一7x4十7x3-3x2+6x+4=(x2+1) (x3-7x2十6x+4) 最大公因式为x2+1。
阅读下列说明和流程图。回答问题 1 和 2,把解答填入答卷的对应栏内。 [说明] 本流程图用来将自然数按右图所示的次序依次存放到 N×N 的二维数组 A 中,图中描述了 N=5 时 A 中各元素的值及其赋值次序。
阅读下列说明和流程图,回答问题 1 和 2 ,把解答写在答卷的对应栏内。 [说明] 流程图用来按递增顺序产生由数字1,2,3组成的非空序列。规定其产生的每个序列均不存在两个相同的相邻子序列。例如,该流程图产生的前五个序列为: 1 1 2 l 2 1 1 2 l 3 l 2 1 3 l 序列 1211,1212 等均因含有两个相同的相邻子序列,故未被流程图产生。
阅读下列说明和流程图,回答问题1和问题2,把解答写在答卷的对应栏内。 [说明] 在字符数组 S 中存放着一行长度为 L 的正文,每个数组元素存放一个字符。现假定正文仅由单词、空格和句号组成,单词由连续的英文字母组成。
默认DBGRID选中行的颜色为深蓝色,可以在程序中改变 在DBGRID的OnDrawColumnCell中写入 if (State=[gdSelectd..gdFocused,gdCurrent]) then begin Grid.
可将Options->pcoUserPageColorForTab设为True,这样标签按钮的颜色和标签页内容颜色一致
求出下一个发票号,如FP001的下一个为FP002,FP 001 X的下一个为FP 002 X,FP 001 XN 002的下一个号码为FP 002 XN 002 总是取出第一个数字并加一,但是不足的位数要补零 函数如下: function GetNextFp(curNo:string):st...
阅读下列说明和流程图,回答问题1和问题2,把解答写在答卷的对应栏内。 [说明] 流程图用来计算矩阵 K,Y 的乘积 Z,其中 X,Y,Z 均为 m 行 m 列的下三角方阵,即行号小于列号的元素均为零的 m 阶方阵。
阅读下列说明和流程图,回答问题1~3,将解答写在答卷的对应栏内。 [说明] 流程图实现下列递归函数的计算。递归函数定义如下: ┌ n+1 当 n=0 时 A(n,x,y)= ┤ 1 当 m≠0 且 y=0 时 └ A( n-1,A(n,x,y-1),x ) 当 m≠0 且 y≠0 时 其中 n,x,y 均为非负整数。
[问题] 将一个 m×n 的矩阵 X 转置后存放到矩阵 Y 中,其计算复杂度为 O(m*n)。对稀疏矩阵来说,可以用紧凑的存贮方式来减少所需的存贮量,并降低计算复杂度。 已知有 t(t>0) 个非零元素的 m×n 稀疏矩阵 W(每行每列至少有一个非零元素)以紧凑方式存放在数组 X[l:t,1:3]中。
[说明] 有一种游戏,是用滚球击十个柱-比赛分为十局,每局可滚球一次或多次,其规则和记分方法如下; (1)若一局的第一个球击倒全部十个柱( 称为 strike ),则这局不再滚球( 例外,对第十局来说,还可补滚两次球 ),其得分为 10 加下两次滚球所击倒的柱数。
阅读下列说明和流程图。回答问题 1 和 2,把解答填入答卷的对应栏内。 有一个集合,集合中有 n 个元素,每个集合元素都是正整数,它们存放在一维数组A中,每个数组元素存放一个集合元素。对给定的整数 total(假定集合中每个元素的值均小于 total),流程图求出所有满足下列条件的子集:子集中各元素之和等于 total。
[程序说明] 设对于一个 n×n 的上三角矩阵 a,为节约存贮,只将它的上三角元素按行主序连续存放在数组 b 中。下面的函数 trans 在不引入工作数组的情况下,实现将 a 改为按列主序连续存放在数组 b 中。
【说明】 某公司供应各种标准的营养套餐。假设菜单上共有n项食物m1,m2,…,mn,每项食物mi的营养价值为vi,价格为pi,其中i=1,2,…,n,套餐中每项食物至多出现一次。客人常需要一个算法来求解总价格不超过M的营养价值最大的套餐。
【说明】 已知某企业的采购审批是分级进行的,即根据采购金额的不同由不同层次的主管人员来审批,主任可以审批5万元以下(不包括5万元)的采购单,副董事长可以审批5万元至10万元(不包括10万元)的采购单,董事长可以审批10万元至50万元(不包括50万元)的采购单,50万元及以上的采购单就需要开会讨论决定。
【说明】 在一个简化的绘图程序中,支持的图形种类有点(point)和圆(circle),在设计过程中采用面向对象思想,认为所有的点和圆都是一种图形(shape),并定义了类型shape_t、point_t和circle_t分别表示基本图形、点和圆,并且点和圆具有基本图形的所有特征。
[说明] 传输门是传输系统中的重要装置。传输门具有 Open(打开)、Closed(关闭)、Opening(正在打开)、StayOpen(保持打开)、Closing(正在关闭)五种状态。触发传输门状态转 换的事件有 click、complete 和 timeout 三种。
[说明] 某订单管理系统的部分UML类图如图6-1所示。 图6-1中,Product表示产品,ProductList表示产品目录,Order表示产品订单,Orderltem表示产品订单中的一个条目,OrderList表示订单列表,SalesSystem提供订单管理系统的操作接口。
[说明] 一般的树结构常采用孩子-兄弟表示法表示,即用二叉链表作树的存储结构,链表中结点的两个链域分别指向该结点的第一个孩子结点和下一个兄弟结点。例如,图 5-1(a) 所示的树的孩子-兄弟表示如图 5-1(b)所示。
[说明] 在一公文处理系统中,开发者定义了一个公文类OfficeDoc, 其中定义了公文具有的属性和处理公文的相应方法。当公文件的内容或状态发生变化时,关注此OfficeDoc 类对象的相应的DocExplorer 对象都要更新其自身的状态。
【说明】 通常情况下,用户可以对应用系统进行配置,并将配置信息保存在配置文件中,应用系统在启动时首先将配置文件加载到内存中,这些内存配置信息应该有且仅有一份。 下面的代码应用了单身模式(Singleton)以保证Configure类只能有一个实例。
B树是一种多叉平衡查找树。一棵m阶的B树,或为空树,或为满足下列特性的m叉树: ①树中每个结点至多有m棵子树; ②若根结点不是叶子结点,则它至少有两棵子树; ③除根之外的所有非叶子结点至少有「m/2]棵子树; ④所有的非叶子结点中包含卞列数据信息 (n,A0,K1,A1,K2,...
散列文件的存储单位称为桶(BUCKET) 。假如一个桶能存放m个记录,当桶中已有m个同义词(散列函数值相同)的记录时,存放第m+1 个同义词会发生"溢出"。此时需要将第m+1 个同义词存放到另一个称为"溢出桶"的桶中。