专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
  众所周知VB提供了许多对串进行常用操作像Left、Right、Trim、Mid、Len和InStr等等能够满足大部分应用;但对于些特殊使用方法,比如C++中strrev即将串顺序倒置就没有个直接对应进行处理   其实通过简单编程即利用VB现有串处理完全可以解决这问题:   Function StrRev(str As String) As String   Dim rts As String   Dim i As Integer   For i = Len(str) To 1 Step -1     rts = rts + Mid(str, i, 1)  [阅读全文] [PDF]
  编程人员从大量开发中积累了许多非常实用经验和窍门技巧它们就象盘盘快餐看似简单但营养绝对丰富!用“餐”的后您VB将立即超频还犹豫什么快来品尝品尝吧 ...  用Mid$命令超速串添加操作  大家都知道&操作符执行速度是相当慢特别是处理长串时当必须重复地在同变量上附加时有个基于Mid$命令窍门技巧可以使用基本思路就是:预留个足够长空间存放操作结果下面是应用这个技术个例子  假设要建立个串它要附加从1开始10000个整数:"1 2 3 4 5 6 7 ... 9999 10000"下面是最简单实现代码:  r [阅读全文] [PDF]
  前面已经接触到类变量、属性以及枚举但我们怎样才能更好利用它们呢?  显然子过程就是其中种方式它几乎出现所有Visual Basic中所以这里来举例介绍说明  在CDog类中添加下列代码:    Public Sub Bark   MsgBox "Woof! Woof!"  End Sub  这里子过程是最常见我们可以简单地使用MyDog.Bark来它  下面来试试:  将表单Form1Command按钮代码改成:    Dim MyDog As CDog  Set MyDog = New CDog  MyDog.Name = &quo [阅读全文] [PDF]
  结构化查询语言SQL是操作数据库国际标准语言在开发VB数据管理软件Software过程中利用SQL可以使数据操作大为方便使VB和数据库联系更加紧密  1 问题提出  在数据库操作中常常会涉及数据表中记录个数、某字段最大值或最小值、某字段平均以及某字段总和等计算这些计算当然可以通过设计算法利用VB本身来实现但是如果利用VB中SQL合计则求解过程大为简化效率大大提高  VB中SQL合计主要包括记录个数(COUNT)、最大值(MAX)、最小值(MIN)、平均值(AVG)以及求和(SUM)虽然这些合计十分有用但有关它使用思路方法在文献资料甚至是数据库高级编程专著 [阅读全文] [PDF]
  /*  我们在处理中文数据时,经常要处理一些情况,下面就是针对  这些情况,我做的一些函数,已经用在了实践中    */    # 判断某个位置是中文字符的左还是右半部分,或不是中文  # 返回值 -1 左 0 不是中文字符 1 右  # 用法  /*  $a = 'this is 中文';  print is_chinese($a, 1); // 0  print is_chinese($a,8); // -1  print is_chinese($a,9); // 1  */  function is_chinese(&$str, $location) [阅读全文] [PDF]
1.方法: SubStr() 中文化取子字串,相对Mid() Strlen() 中文化字串长度,相对Len() StrLeft() 中文化取左字串,相对Left() StrRight() 中文化取右字串,相对Right() isChinese() 检查某个字是否中文字 2.UniCode转成ByteAry Dim byteAry() As Byte Dim str5 As String Dim i As Long str5 = "这abc" byteAry = str5 For i = LBound(byteAry) To UBound [阅读全文] [PDF]
(一)类型转换类函数 1. CType(X) [格式]: P=CBool(X) ' 将X转换为"布尔"(Boolean)类型 P=CByte(X) ' 将X转换为"字节"(Byte)类型 P=CCur(X) ' 将X转换为"金额"(Currency)类型 P=CDate(X) ' 将X转换为"日期"(Date)类型 P=CDbl(X) ' 将X转换为"双精度"(Double)类型 P=CInt(X) ' 将X转换为"整型"(Integer)类型 P=CLng(X) ' [阅读全文] [PDF]
XPath(XML Path language)是一种处理XML文档段的语言。XSLT(Extensible Stylesheet Language Transformations,可扩展样式表语言转换)使用XPath描述表达式和地址路径控制节点选取。XSLT可以将XML转换为各种格式,如HTML或其他格式。 下面用一个邮件合并程序来简要说明XPath的串函数。下面的XML文件中包含数据,XSLT文件中包含对邮件格式的定义。MSXML4.0对XML文档应用样式表,产生一个合并的邮件文本文档。XML文件 Letter.xml<?xml version [阅读全文] [PDF]
<%\' Company: Sabra Inc\' Author: Dave Hoffenberg \' Function: Finds a value within a delimited list\' FreewareFunction ListFind(value,list,delim)If list <> \"\" Then arr = split(list,delim) For i=0 to ubound(arr) If arr(i) = value Then Match = 1 Exit For Else [阅读全文] [PDF]
U2 Forum rautinee原创$$http://u2bbs.126.com$一个网友问就写了一个,:)Function CheckTheChar(TheChar,TheString)\'TheChar=\"要检测的字符串\"\'TheString=\"待检测的字符串\"if inStr(TheString,TheChar) thenfor n =1 to Len(TheString)if Mid(TheString,n,Len(TheChar))=TheChar then CheckTheChar=CheckTheChar+1End ifNextC [阅读全文] [PDF]
用字符串函数对字符串进行截头去尾、大小写替换等操作。 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示从start字符开始到字符串结尾的字符串 Left [阅读全文] [PDF]
返回一个String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[,attributes])] Dir函数的语法具有以下几个部分: 部分描述 pathname可选参数。用来指定文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。如果没有找到pathname,则会返回零长度字符串(\"\")。 attributes可选参数。常数或数值表达式,其总和用来指定文件属性。如果省略,则会返回匹配pathname但不包含属性的文件。 设置值 attributes参数的设置可为: 常数值 [阅读全文] [PDF]
描述 返回一个货币值格式的表达式,它使用系统控制面板中定义的货币符号。 语法 FormatCurrency(Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensForNegativeNumbers[,GroupDigits]]]]) FormatCurrency函数语法有如下几部分: 部分描述 Expression必需的。要格式化的表达式。 NumDigitsAfterDecimal可选的。数字值,表示小数点右边的显示位数。缺省值为–1,表示使用计算机的区域设置值。 Includ [阅读全文] [PDF]
Time 返回系统时钟的当前时间。 Date 返回系统时钟的当前日期。 Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。 Hour(Time) 返回指定时间的小时部分(0到23)。 Minute(Time) 返回指定时间的分钟部分(0到59)。 Second(Time) 返回指定时间的秒部分(0到59)。 Day(Date) 返回月份中的日期数(1到31)。 Month(Date) 返回日期中的月份(1到12)。 Year(Date) 返回日期中 [阅读全文] [PDF]
1. ASC(X),Chr(X):转换字符字符码[格式]:P=Asc(X) 返回字符串X的第一个字符的字符码P=Chr(X) 返回字符码等于X的字符[范例]:(1)P=Chr(65)‘ 输出字符A,因为A的ASCII码等于65(2)P=Asc(“A”)‘ 输出652. Len(X): 计算字符串X的长度[格式]:P=Len(X)[说明]:空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符。[范例]:(1) 令X=”” (空字符串)Len(X) 输出结果为0(2) 令X=”abcd”Len(X) 输出结果为4(3) 令X= [阅读全文] [PDF]
返回包含指定的年、月、日的Variant(Date)。 语法 DateSerial(year,month,day) DateSerial函数语法有下列的命名参数: 部分描述 year必要;Integer。从100到9999间的整数,或一数值表达式。 month必要;Integer。任何数值表达式。 day必要;Integer。任何数值表达式。 说明 为了指定某个日期,如1991年12月31日,DateSerial函数中的每个参数的取值范围应该是可接受的;即,日的取值范围应在1-31之间,而月的取值范围应在1-12之间。但是,当一个数值表达式表示某日之前或其后的年、月 [阅读全文] [PDF]
这是一个用VB实现的收入调节税的函数 ,有可能有人需要所以就发上来了。 Function iiatax(x,y) Dim basicnum As Integer Dim downnum As Variant, upnum As Variant, ratenum As Variant, deductnum As Variant If y = 0 Then basicnum = 1600 \'定义中国公民个税起征点 ElseIf y = 1 Then basicnum = 4800 \'定义外国公民个税起征点 Else: basicnum = Null End If [阅读全文] [PDF]
1.RGB颜色函数 RGB是一个颜色函数,“R”代表Red(红),“G”代表Green(绿),“B”代表Blue(蓝),通过红、绿、蓝3种基本色混合产生某种颜色。 格式:RGB(红,绿,蓝) 说明: (1)红、绿、蓝3种基本色使用0~255之间的整数。 (2)从理论上来说,3种基本色混合可产生256×256×256种颜色,但是实际使用时受到显示硬件的限制而达不到。 例如: RGB(0,0,0)返回黑色。 RGB(255,0,0)返回红色。 RGB(255,0,255)的 [阅读全文] [PDF]
  即使是初学VB的人,对于如何用它来建立一个GUI界面的标准Windows应用程序,肯定也是胸有成竹;然而,对于如何用VB来编写字符界面的控制台程序(Console-ModeApplications),知道的人恐怕不多。有人甚至认为这是不可能的,因为VB对编写控制台程序并无内在的支持,在VB的“新建工程”对话框里没有“控制台程序”这一选项。实际上,利用Windows提供的应用程序编程接口(API),VB是能够建立控制台程序的。控制台程序与图形界面的标准Windows程序不同,它没有Windows程序所通行的窗口,其与用户的交互是基于字符界面,外观类似于“ [阅读全文] [PDF]
VB下几个非常有用的函数´————————(1)————————————´获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明´Private Declare Function GetPrivateProfileSection Lib \"kernel32\" Alias \"GetPrivateProfileSectionA\" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, [阅读全文] [PDF]
1 2 3 > 共43条 分3页