Public Function HexToStr(ByVal strs As String) As String Dim i As Integer, tmp As String, n If Len(strs) Mod 2 Then Exit Function For i = 1 To Len(strs) Step 2 n = Val("&H" & Mid(strs, i, 2)) If n < 0 Or n > 127 Then n = Val("…

在VB语言中,val函数可以把数值字符串==转为==>数值的函数,在它不能识别为数字的第一个字符上,停止读入字符串. 那些被认为是数值的一部分的符号和字符,例如美元号与逗号,都不能被识别.但是能够识别数字中的小数点 但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制).空白.制表符和换行符都从参数中被去掉. Val是类型转换函数:Val(字符串表达式)将数字字符串换成数值,使用方法如下: ===========================================…

本文转载!!! 原文地址:http://www.cnblogs.com/bbdxf/p/3780187.html 1) 数据类型转换: a) __vbaI2Str    将一个字符串转为8 位(1个字节)的数值形式(范围在 0 至 255 之间) 或2 个字节的数值形式(范围在 -32,768 到 32,767 之间). b)__vbaI4Str   将一个字符串转为长整型(4个字节)的数值形式(范围从-2,147,483,6482,147,483,647) c)__vbar4Str  将一个字…

<?php/*Utf-8.gb2312都支持的汉字截取函数cut_str(字符串, 截取长度, 开始长度, 编码);编码默认为 utf-8开始长度默认为 0*/ function cut_str($string, $sublen, $start = 0, $code = 'UTF-8'){    if($code == 'UTF-8')    {        $pa = "/[\x01-\x7f]|[\xc2-\xdf][\x80-\xbf]|\xe0[\xa0-\xbf][\x80-\…

create function fun_del_chinese(@col varchar(1000))returns varchar(1000)ASbegin declare @returnchar varchar(1000),@len int select @returnchar='',@len=1 while(@len<=len(@col)) begin if(ASCII(substring(@col,@len,1))<122) set @returnchar=@returnchar+su…

public function substrgb($in,$num) { //$num=16; $pos=0; $bytenum=0; $out=""; while($num){ $c=mb_substr($in,$pos,1,"euc-jp"); if($c=="n") break; if(strlen($c)==1){ $pos++; $bytenum++; if($bytenum>$num) break; $out.=$c; } el…

CREATE OR REPLACE FUNCTION GET_CHINESE(P_NAME IN VARCHAR2) RETURN VARCHAR2 IS V_CODE        VARCHAR2(30000) := ''; V_CHINESE     VARCHAR2(4000) := ''; V_NON_CHINESE VARCHAR2(4000) := ''; V_COMMA       PLS_INTEGER; V_CODE_Q      PLS_INTEGER; V_CODE_W …

create function [dbo].[fun_getbh](@char nchar(2)) returns int as begin return( case when unicode(@char) between 19968 and 40869 then( select top 1 id from( select id=1,ch=N'亅' union all select 2,N'阝' union all select 3,N'马' union all select 4,N'风' un…

VB程序逆向常用的函数 1) 数据类型转换: a) __vbaI2Str    将一个字符串转为8 位(1个字节)的数值形式(范围在 0 至 255 之间) 或2 个字节的数值形式(范围在 -32,768 到 32,767 之间). b)__vbaI4Str   将一个字符串转为长整型(4个字节)的数值形式(范围从-2,147,483,6482,147,483,647) c)__vbar4Str  将一个字符串转为单精度单精度浮点型(4个字节)的数值形式 d)__vbar8Str   将一个字符…

VB程序逆向常用的函数 1) 数据类型转换: a) __vbaI2Str    将一个字符串转为8 位(1个字节)的数值形式(范围在 0 至 255 之间) 或2 个字节的数值形式(范围在 -32,768 到 32,767 之间). b)__vbaI4Str   将一个字符串转为长整型(4个字节)的数值形式(范围从-2,147,483,6482,147,483,647) c)__vbar4Str  将一个字符串转为单精度单精度浮点型(4个字节)的数值形式 d)__vbar8Str   将一个字符…