精华内容
下载资源
问答
  • 在VB中实现URLEncode转换

    千次阅读 2005-08-26 14:03:00
    Public Function URLEncode(strInput As String) As String Dim strOutput As String Dim intAscii As Integer Dim i As Integer For i = 1 To Len(strInput) intAscii = As

    Public Function URLEncode(strInput As String) As String
         Dim strOutput As String
         Dim intAscii As Integer
         Dim i As Integer 
          
         For i = 1 To Len(strInput)
                 intAscii = Asc(Mid(strInput, i, 1))
                 If ((intAscii < 58) And (intAscii > 47))  Or  ((intAscii < 91) And (intAscii > 64))  Or  ((intAscii < 123) And (intAscii > 96)) Then 
                         strOutput = strOutput & Chr$(intAscii)
                 Else
                         strOutput = strOutput  &  IIf(intAscii < 16, "%0", "%")  &  Trim$(Hex$(intAscii))
                 End If
         Next
         URLEncode = strOutput 
    End Function

    展开全文
  • 2001年02月23日 10:19:00 在vb中如何区分一个变量值为中文还是英文字母?Dim i%For i = 1 To Len(Text1.Text) MsgBox Asc(Mid(Text1.Text, i, 1))Nextasc值在0-255为标准ascii字符你查查msdn可以找到英文字母的...
    		2001年02月23日 10:19:00	

    在vb中如何区分一个变量值为中文还是英文字母?

    Dim i%

    For i = 1 To Len(Text1.Text)
    MsgBox Asc(Mid(Text1.Text, i, 1))
    Next
    'asc值在0-255为标准ascii字符你查查msdn可以找到英文字母的ascii值,当返回的值是5位数,则肯定不是英文字符,但有可能是日韩或其他非英语的语言字符,不知道能判断不是英文字符是不是就够了

    加入时间:2001-2-22
    阅读次数:83



    Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3375


    展开全文
  • Function Escape(ByVal Text As String) As String  Dim s As String  Dim ch As String  Dim iAscii As Integer  Dim i As Long   ... For i = 1 To Len(Text)  ch = Mid$(Text, i, 1
    Function Escape(ByVal Text As String) As String
        Dim s As String
        Dim ch As String
        Dim iAscii As Integer
        Dim i As Long
        
        For i = 1 To Len(Text)
            ch = Mid$(Text, i, 1)
            Select Case ch
                Case "0" To "9", "a" To "z", "A" To "Z", _
                     "-", "_", ".", "!", "~", "*", "'", "(", ")"
                    s = s & ch
                Case Else
                    iAscii = AscW(ch)
                    If (0 <= iAscii) And (iAscii < 255) Then
                        s = s & ("%" & Right$("0" & Hex(iAscii), 2))
                    Else
                        s = s & ("%u" & Right$("000" & Hex(iAscii), 4))
                    End If
            End Select
        Next
        
        Escape = s
    End Function

    Function Unescape(ByVal Text As String) As String
        Dim i As Long
        
        For i = 1 To Len(Text)
            If Mid$(Text, i, 2) = "%u" Then Text = Replace$(Text, Mid$(Text, i, 6), ChrW$(AscW(ChrW$("&H" & Mid$(Text, i + 2, 4)))))
            If Mid$(Text, i, 1) = "%" Then Text = Replace$(Text, Mid$(Text, i, 3), Chr$(Asc(Chr$("&H" & Mid$(Text, i + 1, 2)))))
        Next i
        Unescape = Text
    End Function



    展开全文
  • PHPvb6 Mid函数

    2017-02-02 14:55:21
    <pre><code>VLSALESITEMID=Mid(VLSALESITEMID, 1, Len(VLSALESITEMID) -1). </code></pre> <p>I want to translate it to php, any help? <p>MID FUNCTION : <pre><code>' Creates text string. Dim TestString ...
  • vb

    2016-04-21 16:48:03
    打开vb后点击commandbutton拖入form1吧textbox踏入form创建两个。 Private Sub cmdMutil_Click() Cls Dim n() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As ...

    打开vb后点击commandbutton拖入form1中,在吧textbox踏入form中创建两个。

    Private Sub cmdMutil_Click()
    Cls
    Dim n() As Byte
    Dim r() As Byte
    Dim b As String
    Dim c As Byte
    Dim i As Long
    Dim L As Long
    L = Len(Me.Text1.Text)
    ReDim a(L)
    For i = 1 To L
        b = Mid(Me.Text1.Text, i, 1)
        a(i) = Int(Val(b))
    Next i
    c = Int(Val(Me.Text2.Text))
    Dim d As Byte
    Dim t As Byte
    ReDim r(L)
    For i = L To 1 Step -1
        t = a(i) * c + d
        r(i) = t Mod 10
        d = t \ 10
    Next i
    If d <> 0 Then
        Print d
    End If
    For i = 1 To L
        Print r(i)
    Next i






    End Sub



    展开全文
  • 在VB程序运行时,存储数据提示“实时错误76”,并指向Open Left(App.Path, Len(App.Path) - 0) + "\data\" + Format(Now, "yy/mm/dd/hh/mm/ss") + ".txt" For Binary As #1这句话,请问怎么解决?运行环境是win7,求...
  • VB中的Unicode 和 Ansi 格式 Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串 VB 内部是以Unicode 的格式来存放。何谓 Unicode?简单的说,就是每一个字符都是以 2-byte 的形式表示,而每个「实体...
  • VB中的Unicode 和 Ansi 格式 Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串 VB 内部是以Unicode 的格式来存放。何谓 Unicode?简单的说,就是每一个字符都是以 2-byte 的形式表示,而每个「实体...
  • ASP(VB)自定义日期格式的函数

    千次阅读 2006-12-31 11:39:00
    代码如下:Function AddZero(val, digit) Dim Ret Ret = CStr(val) Ret = Replace(Space(digit - Len(val)), " ", "0") & Ret AddZero = retEnd FunctionFunction FormatDataTime(dt, format...
  • vb中的定长字符串

    千次阅读 2010-09-29 15:37:00
    有效字符串后填充0字符(vbNullString)使用len方法测定长度,总返回定义时的长度以下示例读取配置文件密码值a.ini文件内容[abc]password=87654321读取其中的密码#Private Declare
  • Unicode vs Ansi Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串 VB 内部是以 Unicode 的格式来存放。 何谓 Unicode?简单的说,就是每一个字元都是以 2-byte 的型式表示,而每个「实 体字元」...
  • Unicode vs Ansi Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串 VB 内部是以 Unicode 的格式来存放。 何谓 Unicode?简单的说,就是每一个字元都是以 2-byte 的型式表示,而每个「实 体字元」...
  • Visual Basic 32-bit 版本的字串处理采用 Unicode,也就是说字串 VB 内部是以 Unicode 的格式来存放。 何谓 Unicode?简单的说,就是每一个字元都是以 2-byte 的型式表示,而每个「实 体字元」就是一个「...
  • ●VB常量与变量的命名规则与使用注意●VB知识总结之简单控件使用●在VB中创建树形目录结构图●跟我学VB订单自动生成计算系统用VB统计字母程序实现代码Private Sub Command1_Click()Dim a(1 To 26) As Integer, c As ...
  • VB 6验证输入中文字符

    2008-02-27 19:36:00
    Private Sub Text7_Change()Dim gbasciiIf Len(Trim(Text7.Text)) > 0 ThenIf Asc(Text7.Text) gbascii = AscB(StrConv(Text7.Text, vbFromUnicode)) 区位码16区之后的为汉字 If gbascii - 160 > 15 Then 
  • 窗体新建RichTextBox控件 1. 让文本框始终显示最后一行:  Tipbox.SelectionStart = Len(Tipbox.Text) '获取文本结尾位置  Tipbox.ScrollToCaret() '将控件的内容滚动到当前插入符号位置。 2. ...
  • vb6获取字符串长度

    2014-10-11 14:56:00
    用过VB5.0或者更早版本的读者应该知道VB有一个测试字符串长度的函数:Len。但当你升级到VB6时,会发现这里的Len并没有以前...而在VB6执行,返回值是5。 VB6不再有一个直接计算出字符串总字节数的函数了,因为VB6...
  • 话不多说,直接上代码import java.util.ArrayList;import java.util.HashMap;import java.util.List;import java.util.Map;...public class StringUtil {static int varlen1;static int varlen2;s...
  • text框里面输完内容以后,若该控件失去焦点时,要是框里面输入的内容不符合要求,就显示提醒。   参考代码: Private Sub Text1_LostFocus() For i = 1 To Len(Text1)  If Not IsNumeric(Mid(Text1, i, 1...
  • VB查漏补缺 text控件

    2019-09-24 13:49:55
    前段时间的vb学习比较粗糙,这些是对vb中text控件的查漏补缺 1.限定text中输入字符串的长度。eg:现在先假定输入的字符串长度为10,即 len(trim(text1.text))=10 (1)trim()函数用于去掉括号内字符串左右...
  •  For j = 1 To Len(s(i))  If Asc(Mid(s(i), j, 1)) <> 32 Then Exit For  Next  n(i) = j  s(i) = Mid(s(i), j) Next For i = 0 To UBound(n)  If n(i) = 1 Then CreateRoot n, s, 2, TreeView1.Nodes.Add(, ...
  • Len() 函数所得结果不准确的处理

    千次阅读 2006-08-13 18:31:00
    文字处理程序的编写,常会遇到类似于字数统计的问题,我们 VB/VB.NET 使用 Len() 函数来进行字符统计,但是我们可以发现一个问题,即当我们一个允许多行输入的文本框输入换行符后,Len() 函数所统计出的...
  • [VB学习]之六:文件操作

    千次阅读 2004-12-27 22:06:00
    文件的打开与读写Open “文件名” For 模式 As [#] 文件号 [Len=记录长度]模式:(1)顺序访问模式OutPut:打开一个文件,将对该文件进行写操作。Input:打开一个文件,将对该文件进行读操作。Append:打开一个文件...

空空如也

空空如也

1 2 3 4
收藏数 76
精华内容 30
关键字:

在vb中len