Currently viewing the category:
"Programming"
前几天在配置 Nagios 的短信报警时，使用的公司的一个 Web Service 服务。同事帮我编写了一个 Java 类用来在 Shell 下调用，由于同事交付给我的是一个文件夹，里面除了相关的类文件外还有一些配置文件，所以我决定把这些内容都打成 JAR 包，然后再上传到 Nagios 的监控服务器中去，这样方便 Nagios 进程调用。如果大家对如何制作一个可执行 JAR 包感兴趣，请参考这篇 文章。下面我来重点介绍一下 JAR 包中非常重要的 MANIFEST.MF 文件。打开 JAR 文件我们经常可以看到文件中包含着一个 META-INF 目录，这个目录下会有一些文件，其中必有一个MANIFEST.MF 文件，这个文件描述了该 JAR 文件的很多信息，我们先来看一下 struts.jar 中包含的 MANIFEST.MF 文件内容：
Manifest-Version: 1.0
Created-By: Apache Ant 1.5.1
Extension-Name: Struts Framework
Specification-Title: Struts Framework
Specification-Vendor: Apache Software Foundation
Specification-Version: 1.1
Implementation-Title: Struts Framework
Implementation-Vendor: Apache Software Foundation
Implementation-Vendor-Id: org.apache
Implementation-Version: 1.1
Class-Path: commons-beanutils.jar commons-collections.jar commons-digester.jar commons-logging.jar commons-validator.jar jakarta-oro.jar struts-legacy.jar
这里介绍两种方法来查看已经安装的 Perl 模块，其中第一种方法通过文件名后缀识别 Perl 模块，该方法列出了所有安装的 Perl 模块（包括 Perl 的核心模块），而第二种方法只是列举了系统上安装的 CPAN Perl 模块。
1. Shell 脚本：
find `perl -e ‘print “@INC”‘` -name ‘*.pm’ -print
2. Perl 脚本：
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();foreach (@modules) {
my $ver = $inst->version($_) || “???”;
printf( “%-12s — %s\n”, $_, $ver );
}
exit 0;
做项目的时候，遇到这样的一个问题，需要在 Excel VBA 编程中动态的获取按钮所在 Cell 坐标。
感兴趣的朋友可以参考以下的代码：
‘计算Cmd所在的坐标
Function GetRC(ByVal Cmd As CommandButton)
Dim i, rX, cY As Integer
For i = 1 To 255
If Cells(1, i).Left < Cmd.Left And Cells(1, i + 1).Left > Cmd.Left Then
cY = i: Exit For
End If
Next
For i = 1 To 65535
If Cells(i, 1).Top < Cmd.Top And Cells(i + 1, 1).Top > Cmd.Top Then
rX = i: Exit For
End If
Next
GetRC = “Row:” & rX & “;Column:” & cY
End Function
最近在做项目的时候遇到了在 Excel VBA 代码中给 Sheet 中的单元格内输入公式的问题，自己 Google 了一下，发现 FormulaR1C1 这个函数，这个函数还是很强大的，自己简单了研究一下，为什么 Excel 能实现拖拽单元格时单元格中的公式能智能的根据位置而变换？答案就是这个函数。
这几天，我们 Team 又有一个新的流程上线，所以制作一个新版工作 Report 的 Excel 文档的任务又落到了我头上，以前利用 Excel VBA 写过很多类似的文档，所以这个任务的完成还算是轻车熟路，基本上把以前写的 Daily Report 文档拿过来修改一下就 OK 啦。
在代码的编写中，我想到了新的问题，因为我编写的文档需要大量的按钮控件，点击按钮Excel完成的动作大致相同，以前我只是把相同的问题，归类到一个 Sub 中去，然后再不同的按钮的Click函数中调用，其实这样做只是提高了代码的可修改性和重用性，学过设计模式的朋友应该了解，这样做的目的无非是如果按钮的响应动作发生变化，我只需要修改 Sub 中的代码即可，但是即便是这样，我还需要在制作新的 Excel 文档时手动生成大量的按钮Click事件响应函数，使用“海量”的”CTRL+V” 操作，于是懒惰的我开始思考有没有更简单的方法，最开始的时候我还比较享受使用“海量”的”CTRL+V” 操作，因为毕竟100个按钮，如果0.5秒操作一次的话，一分钟就搞定了，看来懒人的劳动是必须要量化的，呵呵。不过，实际问题是，在我的代码中每个 Click 事件的响应函数中需要动态获取按钮本身的Cell位置，也就是所以我需要修改100个的函数，这样的工作量太大了，所以我开始思考: Excel VBA中是否具有 Java 中的反射机制？
ClustrMaps
