2021年3月10日

vba给图片添加logo

摘要： vba调用windows image acquisition（wia)库实现给图片添加logo.除了调用vba里面专属的Application.PathSeparator和ThisWorkbook.path,去掉就能给vb6和vbs用了。代码： Sub addlogo() Dim logo As 阅读全文

posted @ 2021-03-10 22:01 fan2006 阅读(503) 评论(0) 推荐(0)

2021年3月2日

wps中开始支持javascript了

摘要：在wps最新的测试版中支持开始撸javascript了。今天测试了一下，结果还行。目前主要问题是不知道怎么调用第三方js库。也没看到什么相关的官方文档。如果不做设置的话，wps每次启动时候会默认进入到vb宏模式. 这时候你需要点击开发工具选项卡上的“切换到js宏”选项才能进入js宏模式。如果你想阅读全文

posted @ 2021-03-02 10:44 fan2006 阅读(15863) 评论(2) 推荐(1)

2021年2月11日

获取本地ip

摘要：在老毛子的文章里看到的获取本地ip的方法。实现蛮简单。没找到多少关于idStack相关的说明，有空再去外网溜达看看。先记录下。 program 获取本地ip; {$APPTYPE CONSOLE} {$R *.res} uses IdStack; function GetIPLocal: strin 阅读全文

posted @ 2021-02-11 18:08 fan2006 阅读(104) 评论(0) 推荐(0)

2021年1月25日

判断素数

摘要：看到一个利用数字6来判断一个自然数是否是素数。一个自然数可以写成fx=6*k+b(b=0,1,2,3,4,5)的形式。排除自然数为2或者3的特殊情况,我们可以看到b=0,2,3,4的时候都与6有公约数,所以这时候一定不是素数。也就是一个自然数除以6的余数是1或者是5的时候才有可能是素数。之所以说有可阅读全文

posted @ 2021-01-25 15:52 fan2006 阅读(246) 评论(0) 推荐(0)

2021年1月23日

D语言json解析

摘要：主要是使用D语言获取网页数据并进行json解析。 module readnet; import std.net.curl; import std.json; import std.stdio; import std.string; void main() { auto responsetext=ge 阅读全文

posted @ 2021-01-23 20:34 fan2006 阅读(160) 评论(0) 推荐(0)

2021年1月6日

httpclient的简单运用。

摘要： delphi的httpclient库能够操作http和https链接。应该是XE以后新出的库。试了试用来抓网页还行。里面使用了HtmlParserEx库。只支持xe3以后的版本，看说明还能支持其他平台。该库使我们能够调用css选择器或xpath来取得我们需要的数据。 program 获取图片链接; 阅读全文

posted @ 2021-01-06 18:23 fan2006 阅读(172) 评论(0) 推荐(0)

2020年12月31日

DataFrame to_excel with border lines

摘要：给pandas的DataFrame存到excel文件里并添加表格框线。主要使用styleframe包。 details见代码。 # -*- coding: utf-8 -*- """ Created on Sun Mar 17 19:55:27 2019 @author: Fanxiaolei " 阅读全文

posted @ 2020-12-31 18:59 fan2006 阅读(597) 评论(0) 推荐(0)

2020年7月21日

去掉VFB dll里导出的函数后缀

摘要：去掉vfb的标准dll里的函数后缀可以： 1.普通模块里使用cdecl调用约定/起始模块里使用Extern "C",此语句默认使用cdecl约定。这个就不多说了。在Windows系统上，STDCALL程序在其内部/外部名称中添加了@ N “装饰，其中N 的大小的参数列表，以字节为单位。 2。通过下阅读全文

posted @ 2020-07-21 16:13 fan2006 阅读(213) 评论(0) 推荐(0)

2020年7月17日

关于lazarus中提示marked as inline is not inlined

摘要：最新的lazarus中经常出现一大片的marked as inline is not inlined的提示。虽然不影响程序的编译。但是一大片提示，看起来很不爽。那么怎么隐藏掉呢？ 1.可以在程序单元开头加入： {$WARN 6058 OFF} 2.可以鼠标右击提示消息选择其中一个选项隐藏掉提示。阅读全文

posted @ 2020-07-17 09:00 fan2006 阅读(387) 评论(0) 推荐(0)

2020年6月19日

vfb查询excel

摘要： visual free basic 通过ado连接excel文件。注意程序的位数和驱动程序的位数要保持一致。 #include once "Afx/CADODB/CADODB.inc" DIM pRecordset AS CAdoRecordset Dim r As CVAR = "" Dim f 阅读全文

posted @ 2020-06-19 19:11 fan2006 阅读(345) 评论(0) 推荐(0)