英布之剑的优快云 Blog

【代码】关于zlib的compress/decompress/encode与decode~

要一行行添加并得到如下字典，

腾讯tencent配了更高性能的服务器，且允许被任何资源访问，新浪sina则作了限制，因此使用其免费行情时需要注意避免过频繁的访问。至于szse深交所，如果只是交易日获取，本身需求频率就不会太高，加上他们的服务器也不错，因此问题不大。

如果需要存储需要动态修改的数据，使用。如果需要存储不需要修改的数据，使用。如果需要通过键快速查找值，使用。

Baostock 发送股票行情查询指令时需要带上交易所信息，以下是根据股票代码返回exchange字符串的函数，很多行情软件都是这个format，留存备用~

【代码】一个简单的python 数组移函数~

R10 --- AC1006R11/R12 --- AC1009R13 --- AC1012R14 --- AC1014AutoCAD 2000 --- AC1015AutoCAD 2004 --- AC1018AutoCAD 2007 --- AC1021AutoCAD 2010 --- AC1024AutoCAD2013 --- AC1027AutoCAD2018 --- AC1032这个参数暂时不清楚，麻烦知道的留言一下，谢谢！

1. ls --- 列出当前目录下的文件和目录。as【dos command】: dir2. cd [dir_name] --- 进入一个目录。 .. --- 上一级目录。/mnt/c windows的c盘/mnt/d windows的d盘3. rm [file_name] --- 删除一个文件。as【dos command】: del4. clear --- 清除屏幕内容。as【dos command】: cls...

1.编译错误：Your project path contains non-ASCII characters原因：路径中包含中文中称。对策：在Gradle Scripts下面gradle.properties里面添加：android.overridePathCheck=true2.编译错误:The application could not be installed: INSTAL...

作用：用于截取一个字符串中，两个标识符中间的字符串。    Public Function GetStr(ByVal InputString As String, ByVal String1 As String, ByVal String2 As String) As String        Dim i As Integer        Dim j As Inte

*ActiveX控件　　ActiveX控件与客户应用程序运行在同一个进程中。可用于VB或者其它开发工具及WEB浏览器的ActiveX控制，与一般的VB应用程序设计大同小异。可以为ActiveX控制加上属性页，并实时调试。*ActiveXDLL　　ActiveXDLL提供的对象与应用程序运行于同一个进程中。应用程序可以创建对象，设置对象属性，调用对象的方法。ActiveXDLL一般不

IE9在官方开发博客中表示他们默认将会使用比较短的 User-Agent 识别字符。这 将会改善整体性能、互操作性和兼容性。IE9将不会再继续把.NET 等软件附加的信息加入 UA 字符串之中。站点开发者们需要注意新版字符串同IE8相比的四个主要变化：1、应用程序版本从“Mozilla/4.0”升级到“Mozilla/5.0”，以和其他各浏览器匹配。这一改动表明IE9是互操作性良好的浏览器

相同的源文件，相同的算法，相同的输出。。。二者效率相差之大。。有图有真象：计算了一下，VB2010的花费时间大约是QB7的12.13倍。

接前篇，列一些从VB6到VB2010的一些TextBox属性的怪怪的升级, 如下：TextBox1.MousePointer改成TextBox1.CursorTextBox1.SetFocus 改成 TextBox1.Focus有的人可能要说了。。很明显，是为了缩短语句嘛。。。那么，我们再看看下面的：TextBox1.SelText 改成 TextBox1.SelectedText

从VB6升级到VB2010，很多人不习惯。。。说不习惯，其实也有很大一个原因：就是不知道VB2010好在哪里。。那么，本文将以最常用的TextBox的升级为例让你领略一下VB2010的魅力...1. 清除文本框内容。VB6 : TextBox1.Text=""VB2010: TextBox1.Clear()2. 取消选择文本。VB6 : TextBox1.SelLength=0

再说一说VB6到VB2008/VB2010升级向导的问题:原VB6代码:Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpTyp

玩VB6的同学，升级到VB2008或VB2010。。。一般会先用用升级向导... 偶然的机会，发现VB2008的升级向导关于与运算和逻辑运算有一个大大的臭虫。。原代码:Public Const READ_CONTROL = &H20000Public Const STANDARD_RIGHTS_READ = (READ_CONTROL)Public Const STANDARD

VB6中，要更改一个文本框的字体属性，很简单，比如要更改字体大小Text1.Font.Size = 9但是，到VB2010中，你会发现这样用会出错，并提示.Size属性是只读属性。翻遍百度发现Microsoft.VisualBasic.Compatibility.VB6里面有一个FontChangeSize的函数可用于更改文本框的字体,格式如下：VB6.FontChangeSize(T

创建一个Checkbox, 并写以下代码：Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedMsgBox("CheckedChanged")End SubPrivate Sub

MousePointer 升级为 Cursor所以，Me.MousePointer 就要写成Me.Cursor看起来是简写了是吧，OK, Me.MousePointer =11 ，原来可以用数字简写的，现在要写出来就是：System.Windows.Forms.Cursors.WaitCursor晕吧。。

1. vbLeftButton ===> VB6.MouseButtonConstants.LeftButton2. vbOKOnly ===> MsgboxStyle.OKOnly3. vbRed ===> System.Drawing.Color.Red4. READYSTATE_COMPLETE ===> System.Windows.Forms.WebBrowserRead

原来的Debug.Print，现在的System.Diagnostics.Debug.Write哪个更nice, 我不得不说是Debug.Print

vb2010将菜单控件化了，所以原来的PopUpMenu就无法使用了。。需使用ContextMenuStrip控件，然后用：ContextMenuStrip1.Show 弹出。

1. Clipboard.Clear 升级为：My.Computer.Clipboard.Clear()2. Clipboard.GetData 升级为：My.Computer.Clipboard.GetImage() ，看来起vb2010的Get分不同的类型。

Doevents升级到VB2010后的写法： System.Windows.Forms.Application.DoEvents()绝对是称得上最最嗦哆的升级吧 还有，用于防止程序重复运行的App.PrevInstance，在.net中不再支持，不过，博主找到了一个替代方案：UBound(Diagnostics.Process.GetProcessesByName(Diagnost

新版本的Visual Basic 2010，你会发现原来用于关闭窗口的Unload Me无法使用了...没错，Unload Me 现在已经升级为Me.Close()看到了没有，Visual Basic 2010类吧。 其实，你再往下看... 你会发现Visual basic 2010更类 VB6: List1.AddItem "item1" VB2010: List1.

VB6的App对象，提供App.ExeName等众多的功能。现VB2010已升级到My名字空间My.Application, 用于提供当前应用程序的信息，包括标题，目录，版本号等。因此，1. 象原来的代码:App.ExeName在VB2010中就要写成,My.Application.Info.AssemblyName2. App.hInstance 则没有升级到My名字空间

因为VB2010已经支援了.net framework 4.0，所以原有的VB6函数不能继续采用，但是为了兼容性，Microsoft将旧的VB6函数或语句集中到一个叫Microsoft.VisualBasic的类。以便于我们可以方便的升级原来的代码。以下列出一些常用的变化。为简化操作，请在Class最顶端加上一句：Imports VB6 = Microsoft.VisualBasic1

从VB6到VB2010除了功能的强大，也可以看到Microsoft对于细节的重视，例如，不少控件的属性就做了细微的调整。如:1. Option的Value 属性更改为Checked，也就是说原来的Option1.Value在VB2010中，就应该写成Option1.Checked他们的值均是Boolean, 可以为True, 也可以为False, 但是很明显Checked更

因为Visual Basic 2010已经对Integer (已升级为4字节)和Long(已升级成8字节)变量进行了升级，并增加了Short (2字节)类型。所以VB6升级到VB2010时需作如下修改：VB6 Integer ===> VB2010 ShortVB6 Long ===> VB2010 Integer当然，不修改也没关系，但是程式升级后会花费超过你预期的内存。*另

<br />因为有人反应，某些在五笔中可以打出来的词语在拼音中无法打出来.... 也有一些在拼音中可以打出的词语在五笔中无法打出来...<br />这是因为，五笔和拼音编码时是分别处理的。。所以可能彼此没有cover到。。因此必须首先提取五笔中没有的拼音词条和拼音中没有的五笔词条... code如下:<br />Dim rs1 As Recordset<br />Dim BM1 As String<br />Dim CI1 As String<br />Dim BM As String<br />Dim C

<br />因为容错是少输一码情况下，仍为可唯一汉字时，才可以输出。。。但是可能有多少汉字存在此情形。。。所以，只能为其中一个汉字进行容错。。。所以必须bypass掉其它的汉字编码。。。<br />代码如下：<br />   Dim BM As String, OldBM As String<br />   Dim CI As String, OldCI As String<br />    Open App.Path & "/3ma.txt" For Input As #1<br />    <br />

<br />因为五笔难学，所以特别对某些字进行容错。。这样可以明显提高输入效率。。<br />例如：张　五笔全码是XTAY ... 但是XTA也没有其它的字，所以给予容错处理...你输入XTA也可以打出张字。。。当然了，张字的二级简码是XT... 这里只是举例一下。。。<br />要进行此项处理，首先得提取所有单字4码的词条, code如下：<br />   Dim BM As String<br />   Dim CI As String<br />   Dim JS As Long, n As Long

<br />基本工作都完成了。。。不得不再做做重复编码分析....  因为生平最恨没效率的事，重复的事....  code....<br />   Dim BM As String, OldBM As String<br />   Dim CI As String, OldCI As String<br />   Dim JS As Long<br />   Dim n As Integer<br />       Form5.Show<br />       Form5.Label1.Caption =

重码，一直是输入法必须考虑的。。。所以，在这一步。。不得不分析一下。。考虑到重码不可能避免。。。决定只对10个以上重码进行分析与优化。。因为10个以下选择一下还是比较方便的。一经分析下来，不得不再说说王永民的伟大了。。。五笔重码>10的仅3条，但拼音却的却有841条之多。。。五笔仅3条不用处理。。。拼音重复太多，中间如何取舍以及排序的优化暂时还在思索中。。。ps: 临时性的代码，依然放在这里供参观吧～～～　先腾出手来处理五笔容错码的问题吧。。   Dim BM As String, OldBM As Str

托3.8节的福.... 放假的人多了，所以昨天的业务比较少。。。终于专心下来写这个软件了，主体部分在今天完工了...  最终决，3字的词，也还全拼和简拼相容，仅4字的保持纯简拼。。。SO, 又多了一段临时的code...   Dim B As String, NewB As String<br />   Dim c As String<br />   Dim l As Integer, i As Integer<br />            <br />    Open App.Path & "/3ma

<br />将2字词条转成全拼的程序代码... 用完就要被抛弃了。。。突然发现好残忍。。。可怜的code<br />   Dim B As String, NewB As String<br />   Dim c As String<br />            <br />    Open App.Path & "/2ma.txt" For Input As #1<br />    Open App.Path & "/2ma_new.txt" For Append As #2<br />

<br />提取需要兼容全拼的2字词组，又是临时程code.... 用code产生code, 用code为code服务... 也许，这就是编程的乐趣吧。。。<br />   Dim B As String<br />   Dim C As String<br />   Dim n1 As Integer<br />   Dim n2 As Integer<br />      Set rs = ADO.CreateRecordset("SELECT *  FROM YS_PY")<br />      Wh

<br />五笔基本定案... 至于，拼音... 昨天的单字全拼+词组简拼的数据库基本处理完了... 剩下的就是编码分析了... 因为是临时性的code,  用完后，就不会再呆在程序中... 就放这里了供参观了...<br />   Dim B As String<br />   Dim c As String<br />   Dim n1 As Integer<br />   Dim n2 As Integer<br />   <br />   Dim s1 As Long<br />   Dim s2

<br />一天一直在想拼音输入法编码的方案... 既要输入方便，同时又少尽量减少重码.... 最终综合考虑，决定... 单字部分采用全拼，词语部分采用简拼与全拼结合 的综合方案, 具体如下：<br /> <br />2字：全拼<br />3字：简拼+全拼结合  (*ps:若全拼编码长度大于12，则只取简拼)<br />4字或以上：只取简拼<br />