存档

‘程序设计’ 分类的存档

用VFP编的BASE64加密和解密函数(转载)

2019年6月21日
用VFP编的BASE64加密和解密函数(转载)已关闭评论

   我们知道,VFP9.0里有关于BASE64的函数:    STRCONV(cExpression, 13)加密    STRCONV(cExpression, 14)解密 vfp6.0没有次函数 转载一个 DEFINE BASESTR "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" #DEFINE BASEPAD "=" FUNCTION GetBitStr &&将十进制数转换为6位或8位的二进制格式 PARAMETERS nNum,nBit LOCAL retStr as String ,nMod as Integer ,nGet as Integer  retStr="" nGet=nNum nMod=MOD(nGet,2) DO WHILE NOT nGet=0  nMod=MOD(nGet,2) nGet=INT(nGet/2) retStr=ALLTRIM(STR(nMod))+retStr ENDDO RETURN PADL(retStr,nBit,"0") ENDFUNC  FUNCTION GetDecNum &&将二进制格式的数字串转换为十进制数 PARAMETERS cBit LOCAL retNum as Integer,nSit as Integer,nTime as Integer  ,nLen as Integer , n as Integer  retNum=0 nLen=LEN(cBit) FOR n=1 TO nLen-1 nSit=IIF(SUBSTR(cBit,n,1)="1",2,0) nTime=nLen-n retNum=retNum+nSit^nTime ENDFOR  retNum=retNum+IIF(RIGHT(cBit,1)="1",1,0) RETURN retNum  ENDFUNC  FUNCTION GetBase64 &&加密 PARAMETERS strGet LOCAL retStr as String ,n as Integer ,nLen as Integer ,tmpBitStr as String ,nAdd as Int

more...

程序设计

Windows下python安装BeautifulSoup

2018年1月30日
Windows下python安装BeautifulSoup已关闭评论

电脑首先要安装好了python

下面就是bs4的安装过程了:

1.去官网下载BeautifulSoup4

2.解压文件

将下载得到的压缩包解压到任意文件夹,路径不含中文

3.打开cmd命令提示符

win+r,输入cmd,回车

 

进入解压后的目录,我这里是C:\Python27\bs4\beautifulsoup4-4.6.0

所以使用

cd C:\Python27\bs4\beautifulsoup4-4.6.0

然后

setup.py build

接着

setup.py install

完成安装

4.测试

python
import bs4
没有提示错误,成功!

more...

程序设计

foxpro汉字中有没有空格判断解决方法

2017年9月25日
foxpro汉字中有没有空格判断解决方法已关闭评论

汉字中的空格判断解决方法

在foxpro中汉字中的空格判断,怎样判断汉字中如姓名有没有空格呢?
Create Cursor T (Xm C(10),正确结果 C(10),错误原因 C(20))
Insert Into T (Xm) Values ("吕 三")
Insert Into T (Xm) Values ("张  四")
Insert Into T (Xm) Values ("关 云  宇")
Insert Into T (Xm) Values ("刘 备")
Insert Into T (Xm) Values ("赵 葛 亮")
Insert Into T (Xm) Values ("赵云")
* 只考虑姓名间的空格,不考虑姓名尾部的空格,空格分全角(41377)和半角(32),鉴于楼主是初学者,代码如下(Vfp6代码)
Local lcStr
lcStr=""
Scan
    Do Case
       Case Chr(41377)$Alltrim(Xm) And Chr(32)$Alltrim(Xm)
            lcStr="全角+半角空格"
       Case Chr(32)$Alltrim(Xm)
            lcStr="半角空格"
       Case Chr(41377)$Alltrim(Xm)
            lcStr="全角空格"
       Otherwise 
            lcStr=""      
    EndCase 
    Replace 正确结果 With Strtran(Strtran(Alltrim(Xm),Chr(32),""),Chr(41377),""),错误原因 With lcStr
Endscan

more...

程序设计

foxpro动态创建表单form

2017年9月20日
foxpro动态创建表单form已关闭评论

createobject(“form”)创建表单如何保存
1、createobject(“form”)创建表单?
2、如何用命令向该表单添加按钮?
3、如何用命令向该表单的load事件添加加代码?

感谢您的帮助!
——解决方案——————–
form1 = createobject('form1')                  && 创建一个表单
form1.addobject('cmdcmndbtn1','cmdmycmndbtn1') && 退出命令按钮
form1.show                                     && 显示表单
read events                                    && 启动事件处理
define class form1 as form     && 创建表单
   autocenter=.t.              && 表单初始化时居中
   caption="Commandbotton示例" && 表单标题
   closable=.f.                && 表单关闭按钮不可用
   procedure load
      *---创建临时表
      create cursor tabname (name c (10))
      for i=1 to 10
          insert into tabname values (replicate(chr(i+64),10))
      endfor
      browse
enddefine

define class cmdmycmndbtn1 as commandbutton && 创建命令按钮
   caption = '退出' && 命令按钮上的标题
   cancel = .t.     && 默认

more...

程序设计

foxpro 动态创建的控件

2017年4月17日
foxpro 动态创建的控件已关闭评论

thisform.newobject(“text1″,”textbox”)&&创建一个text文本对象
thisform.text1.visible=.t.&&设置文本对象可见
thisform.text1.top= 90 &&设置顶部距离
thisform.text1.left=120&&设置左侧距离
thisform.text1.width=100 &&设置宽度
thisform.text1.height=50 &&设置高度

对象的保存

Object.saveas 方法应用于 请参阅把一个对象作为 .SCX 文件保存起来。
语法
Object.SaveAs(cFileName [, oObjectName])
参数
cFileName
指定保存对象的 .SCX 文件。
oObjectName
指定对数据环境对象的引用。
说明
可以使用 saveas 方法创建表单或表单集,并把它保存为一个 .SCX 文件。saveas 方法只在 Visual FoxPro 交互工作期可用。
在使用 saveas 方法的同时,也保存了与对象有关的所有属性、事件和方法。注意,只能保存根据 Visual FoxPro 基类创建的对象。不能保存用户自定义类。

———————————————-

more...

程序设计