CSTR="我想將一BC個字123456符串分割G成兩行"
MESSAGEBOX(FUN(CSTR),64,[系统信息])
*--- 自定义函数
FUNCTION FUN
PARAMETERS CSTR
LOCAL NLEN
NLEN=LEN(CSTR)/2
CSTR_1=LEFT(CSTR,NLEN)
NLEN=IIF(STRCONV(STRCONV(CSTR_1,5),6)==CSTR_1,NLEN,NLEN+1)
RETURN LEFT(CSTR,NLEN)+CHR(10)+CHR(13)+CHR(10)+SUBSTR(CSTR,NLEN+1)
Select * From 表名 Where 字段名 In (Select 字段名 From 表名 Group By 字段名 Having Count(*)>1) Order By 字段名
Clear
FSO=CreateObject("Scripting.FileSystemObject")
sourcepath="d:\sn.txt"
oBjset = FSO.GetFile(sourcepath)
? "文件创建日期及时间:",oBjset.DateCreated
sourcepath1="F:\Picture"
oBjset = FSO.GetFolder(sourcepath1)
? "文件夹创建日期及时间:",oBjset.DateCreated
Release FSO
Declare Integer ShellExecute In shell32.dll Integer,String,String,String,String,Integer
Declare Integer GetDesktopWindow In Win32api
lcFile = Getfile("jpg")
If Empty(lcFile)
Return
Endif
lnWnd = GetDesktopWindow()
=Shellexecute(lnWnd,"open",lcFile,"","C:\",0)
Clear dlls
FileName=GETFILE()
DoOut(0,'OPEN',JUSTFNAME(FileName),'',JUSTPATH(FileName),9)
*------------------------------------------------------------------------------------------
FUNCTION DoOut
PARAMETERS lnHwnd,lcCom,lcFile,LcPra,lcPath,lcMode
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGE...
* 在表格的INIT事件中写入
This.SetAll("DynamicFontName","Iif(RECNO()=Reccount(),'黑体','宋体')","Column")
This.SetAll("DynamicFontSize","Iif(RECNO()=Reccount(),16,10)","Column")
This.Setall("DynamicBackColor","Iif(Recno()=Reccount(),Rgb(255,255,255),Rgb(255,0,0)","Column")
* 程序功能：中文时间(十九时五分二十六秒)转换为数字时间(19:05:26)
* 注：该程序稍加修改可用于中文日期转换为数字日期
lcStr="零,00;一,01;二,02;三,03;四,04;五,05;六,06;七,07;八,08;九,09;十,10;";
+"十一,11;十二,12;十三,13;十四,14;十五,15;十六,16;十七,17;十八,18;十九,19;二十,20;";
+"二十一,21;二十二,22;二十三,23;二十四,24;二十五,25;二十六,26;二十七,27;二十八,28;二十九,29;三十,30;";
+"三十一,31;三十二,32;三十三,33...
有空看看........................
把以下 notepad.exe 换成你的 DOS命令即可
来源：http://bbs.csdn.net/topics/340256503
Declare Long WinExec In kernel32 String,Long
=WinExec("notepad.exe",1)
Clear Dlls
WinExec(one.exe,SW_SHOW);
里面的SW_SHOW意思是什么
WinExec(）函数第二个参数是什么意思
如果我想以无参数运行one.exe应该怎么办??
SW_SHOW表示以当前大小激活运行后的程序窗口并显示它。
...
Clear
Date1={^2013.05.12}
Date2={^2013.06.10}
Local AlnDow[7] && 存储星期N的天数
Store 0 To AlnDow
Do While Date1<=Date2
Date1=Date1+1
AlnDow[Dow(date1,2)]=AlnDow[Dow(date1,2)]+1
EndDo
For lnI=1 To 7
? "星期"+Substr("一二三四五六日",lnI*2-1,2)+" "+Transform(AlnDow[lnI])+" 天"
EndFor
PURPOSE
For years I have searched the
Internet for the 64-Bit GNU Emacs binary distribution for MS-Windows.
Indeed there do have 64-Bit Emacs for MS-Windows, but I don’t like them.
Most of them are modified or outdated. So I try to compile a up-to-date
native 64-Bit GNU Em...
Clear
ldDatetime1=DATETIME()
ldDatetime2={^2018-06-15 12:00:00}
lnSeconds=ldDatetime2-ldDatetime1 && 总秒数
lnDays=Int(lnSeconds/86400) && 天数
lnHours=Int(Mod(lnSeconds,86400)/3600) && 小时
lnSecs=Mod(lnSeconds,3600) && 秒
?"距2018年6月15日上午12点整，还有 "+Transform(lnDays)...
以下代码仅作演示：
#!/usr/bin/env python
# -*- coding: UTF-8 -*-
from selenium import webdriver
from selenium.webdriver.support.ui import WebDriverWait
browser = webdriver.Firefox()
browser.set_page_load_timeout(20) # 防止页面加载个没完
browser.get('https://www.zhihu.com/')
browser.find_e...
#!/usr/bin/env python
# -*- coding: UTF-8 -*-
from pyquery import PyQuery as pq
from selenium import webdriver
browser = webdriver.Firefox()
browser.get('http://www.baidu.com/')
html = browser.find_element_by_xpath("//*").get_attribute("outerHTML") # 不要用 browser.page_source，那样得到的页面源码不标...
类似问题：http://bbs.csdn.net/topics/390633445
编程对Table1表的日期数据处理，把日期段分拆，形成Table2的形式。
Create Table Table1 (cname C(10), date1 D, date2 D)
Insert Into Table1 Values ("Jack", {^1991-3-31}, {^1994-12-15})
Insert Into Table1 Values ("Lily", {^2000-9-10},{^2003-2-15})
Insert Into Tabl...
Local ASZ[50,7]
Store [] To ASZ
For lnI=1 To 50
For lnI1=1 To 7
ASZ[lnI,lnI1]=Padl(lnI*lnI1,4,[0])
Endfor
Endfor
Local cc, oo As Excel.Application
m.oo = Newobject('Excel.Application')
If m.oo.Workbooks.Count < 1
m.oo.Workbooks.Add()
Endif
If m.oo.Workbooks(1)....
jq.js
module.exports.jq = function(){
var request = require('request');
var jsdom = require("jsdom");
var jquery = require('jquery');
var $ = jquery(jsdom.jsdom().parentWindow);
var Iconv = require('iconv').Iconv;
$.extend({
get: function() {
var url, charset, callba...
就按最简单的安装二进制文件
到官网 https://nodejs.org/download/ 下载二进制文件
wget http://nodejs.org/dist/v0.12.0/node-v0.12.0-linux-x64.tar.gz
mkdir /usr/local/node
tar zxvf node-v0.12.0-linux-x64.tar.gz -C /usr/local/node
ln -s /usr/local/node/bin/node /usr/bin/node
...
VFP6下
?transform(9867.8900)
结果：9867.889999999999
?transform(9867.8900,"@z")
结果：9867.89
VFP9下
?transform(9867.8900,"@z")
结果：9867.89
?transform(9867.100,"@z")
结果：9867.10
结论：使用Transform()函数转换带小数位的数值型数据时，慎用！！！！
建议使用Pad...
主机与virtualbox互相访问的网络设置<推荐>
下面我们分别对这四种网络模式进行分析解释：
第一种 NAT模式
解释：
NAT模式是最简单的实现虚拟机上网的方式，你可以这样理解：Vhost访问网络的所有数据都是由主机提供的，vhost并不真实存在于网络中，主机与网络中的任何机器都不能查看和访问到Vhost的存在。
虚拟机与主机关系：
只能单向访问，虚拟机可以通过网络访问到主机，主机无法通过网络访问到虚拟机。
虚拟机与网络中其他主机的关系：
只能单向访问，虚拟机可以访问到网络中其他主机，其他主机不能通过网络访问到虚拟机。
虚拟机与虚拟机之间的关系...