精华内容
下载资源
问答
  • VB字符串转16进制数

    2017-07-12 20:59:37
    工具,函数
  • 包含整个工程,可直接复制使用
  • 效果显示: ... '转字符串 Text3.Text = Val(Text1.Text)  '转为数字 End Sub 备注: 1、Val()函数,字符串转为数字,从左到右依次转换,遇到非数字字符为止,必要时可以使用CDbl(); 2、CSt...
    效果显示:
    VB编程:Val字符串转数字,CStr数字转字符串-6

    Private Sub Text1_Change()
    Text2.Text = CStr(Text1.Text)     '转字符串
    Text3.Text = Val(Text1.Text)       '转为数字
    End Sub

    备注:
    1、Val()函数,字符串转为数字,从左到右依次转换,遇到非数字字符为止,必要时可以使用CDbl();
    2、CStr()函数,数字转换为字符串。



    展开全文
  • vb 字符串数字相互转换函数

    千次阅读 2016-06-14 23:19:00
    VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的转换函数做一些小结.字符串转换的函数主要有: Str()和Val()用于字符串数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; ...

    VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的
    转换函数做一些小结.字符串转换的函数主要有:
    Str()和Val()用于字符串和数字的相互转换;
    Chr()和Asc()用于字符串和AscII码的相互转换;
    Chrw()和Ascw()用于Unicode码和中文的相互转换;
    Format()函数用途十分广泛的一个函数,功能十分强大.

    在这些函数中前两对和Format()函数是我们经常用到的,这里只给出前两对的几个简单例子:
    (1) MyString = Str(-459.65) ' 返回 "-459.65"。
    MyString = Str(459.001) ' 返回 " 459.001"。
    (2) MyValue = Val(" 2 45 7") ' 返回 2457。
    MyValue = Val("24 and 57") ' 返回 24。
    (3) MyChar = Chr(97) ' 返回 a。
    MyChar = Chr(37) ' 返回 %。
    (4) MyNumber = Asc("Apple") ' 返回 65。
    MyNumber = Asc("a") ' 返回 97。

    Format函数功能十分强大,大家可以察看msdn相关说明.本文重点想说一下第三对函数,这是经常被大家忽视的一对函数.在我开发手机短信时,最开始时就是用text模式开发的,后来由于发中文改成pdu模式,pdu模式有三种形式可用:7-bits,8-bits,ucs2.前两种都是表复杂的,涉及到编码函数的设计,这里就不多说了,我用的是ucs2编码,发现只要使用第三对函数就能完成pdu串的编码和解码.这对函数的使用和第二对完全相同,下面举几个例子说明(以下代码从vb的立即窗口里得到):
    ?ascw("中")
    20013
    ?ascw("果")
    26524
    ?ascw("e")
    101
    ?chrw(101)
    e
    ?chrw(26589)

    在chrw()和ascw()函数中,对于ASCII仍然和chr()与asc()相同对待.以上只是我对这些函数使用时的一点小结,期望能起到抛砖引玉的作用.

     

    转载于:https://www.cnblogs.com/phzend/p/5585853.html

    展开全文
  • VBA示例之 从字符串提取纯数字,供初学者参考,大牛勿进~~~~~~~
  • VB 判断字符数字

    2010-06-07 13:48:12
    VB 判断字符数字 VB 判断字符数字
  • VB.NET取得字符串中所有的数字: 1.用正则表达式: '引入命名空间 Imports System.Text.RegularExpressions Public Shared Function GetNumbers(ByVal str As String) As String Return Regex.Replace(str, “[a-z]...

    VB.NET取得字符串中所有的数字:

    1.用正则表达式:

    '引入命名空间
    Imports System.Text.RegularExpressions
    Public Shared Function GetNumbers(ByVal str As String) As String
    Return Regex.Replace(str, “[a-z]”, “”, RegexOptions.IgnoreCase).Trim()
    End Function

    2.写一个vb.net教程函数

       '''   <summary>   
        '''   从字符串中提取所有数字   
        '''     Returns:所有数字   
        '''   </summary>     
        '''   <param  name = "strp">需要提取的字符串   </param>   
        '''   <returns> 所有数字</returns>   
        Private Function GetNumbers(ByVal strp As String) As String
            Dim strReturn As String = String.Empty
            If strp Is Nothing OrElse strp.Trim() = "" Then
                strReturn = ""
            End If
            For Each chrTemp As Char In strp
                If [Char].IsNumber(chrTemp) Then
                    strReturn += chrTemp.ToString()
                End If
            Next
            Return strReturn
        End Function
    
    展开全文
  • 这个问题看是很简单,但是在不同语言中实现的方式却千差万别,如果不知道方法,还真是...一、16进制字符串转数字 1、C/C++ I、最简单的办法:sscanf(“12AB”,,”%x”,&lngHex); //字符也可以为”0x12AB” ...

    这个问题看是很简单,但是在不同语言中实现的方式却千差万别,如果不知道方法,还真是麻烦,我就是在C#中遇到该问题,让我费了很大的周折,才在msdn查到。
    一、16进制字符串转数字
         1、C/C++
               I、最简单的办法:sscanf(“12AB”,,”%x”,&lngHex);   //字符也可以为”0x12AB”
          II、有个朋友,自行编写函数实现了该功能,据说速度比sscanf快:
         

     
     
    1. BOOL   HexToDec(   LPCTSTR   shex,int&   idec   )     
    2.     {     
    3.      int   i,mid;     
    4.      int   len   =   lstrlen(   shex   );         
    5.      if(   len>8   )     return   FALSE;        
    6.      mid   =   0;   idec   =   0;     
    7.      for(   i=0;i<len;i++   )     
    8.      {     
    9.          if(   shex[i]>='0'&&shex[i]<='9'   )   mid   =   shex[i]-'0';     
    10.          else   if(   shex[i]>='a'&&shex[i]<='f'   )   mid   =   shex[i]   -'a'   +10;     
    11.          else   if(   shex[i]>='A'&&shex[i]<='F'   )   mid   =   shex[i]   -'A'   +10;     
    12.          else   return   FALSE;         
    13.          mid   <<=   ((len-i-1)<<2);     
    14.          idec   |=   mid;         
    15.      }         
    16.      return   TRUE;     
    17.   }    

       2、VB
       LngHex=val(“&H12AB”)
     3、VB.net
    LngHex=val(“&H12AB”)
     4、C#
         lngHex=Convert.ToInt32(“0x12AB”,16);   //也可以直接写12AB
       在Msdn上有一个条目:“如何:将十六进制字符串转换为数字”
       使用ToInt32,第一个参数为要转换的字符串,第二个参数表示数字的基数,十六进制为16。
       此外不仅支持16进制,2,8,10进制都支持 
     
    二、数字转16进制字符串
    1、C/C++
    Printf(“%x”,1234);
    2、VB
    Hex(1234)
    3、VB.net
    Hex(1234)
    Int(1234).ToString(“X4”)
    4、C#
    ((int)1234).ToString(“X4”);


     








    本文转自yefanqiu51CTO博客,原文链接:http://blog.51cto.com/yfsoft/323425,如需转载请自行联系原作者

    展开全文
  • 16进制字符串转数字(C/C++ VB/VB net C )
  • ''' 判断字符串是否为数字 ''' </summary> ''' <param name="value">字符串</param> ''' <returns>如果字符串数字,返回true,否则返回false</returns> <Extension()> ...
  • 返回包含于字符串内的数字字符串中是一个适当类型的数值。 语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。...
  • 主要介绍了将字符串数字格式化为样式1,000,000,000的方法,有需要的朋友可以参考一下
  • VB6 字符串和16进制互转换

    千次阅读 2018-11-08 22:33:04
    自己写的两个函数,用于字符串和16进制互转换的,支持中文转换,中文编码写入IC卡非常方便   ...'将字符串转换为16进制 Dim abytS() As Byte Dim bytTemp As Byte Dim strTemp As String Di...
  • Trim Trim(string) 将字符串前后的空格去掉  Ltrim Ltrim(string) 将字符串前面的空格去掉  Rtrim Rtrim(string) 将字符串后面的空格去掉  Mid Mid(string,start,length) 从string字符串的sta
  • VBA示例之 获取一个字符串中有多少个数字字符,供初学者参考,大牛勿进~~~~~~~
  • VB 字符和ASCII码间的相互转换

    热门讨论 2010-06-07 10:45:41
    VB 字符和ASCII码间的相互转换 VB 字符和ASCII码间的相互转换
  • vb.net字符串日期型转换

    千次阅读 2014-03-31 21:02:25
    关键:先将字符串形成日期型的“形式” 比如“20120814” 形成: “2012-08-14” 或"2012/08/14" 故:举例如下: Dim a As Date  Dim s As String = "20080814"  a = CDate(Format(CInt(s
  • 格式设置是类型(如数字、日期等)的值转换为字符串表示形式的过程,通常使得最终的字符串以友好的格式显示给用户,也可以理解为把其他数据类型以想要的格式转换成字符串。通常使用 Object.ToString方...
  • VB拼接字符串去除空格

    千次阅读 2018-09-21 16:52:52
    str = str1& str2拼接的字符串存在空格 num = Len(str) 字符串的长度 k = InStr(str, " ") 从第一位开始搜索空格 For k = 0 To num 循环去除空格 textData(0) = Replace(str, " ", "") Next k
  • VB 6.0 对字符串进行加、减、乘、除计算,如何对字符串进行加、减、乘、除计算呢,本示例演示了这个功能,其实就是数学表达式的计算,运算式中可以有括号,程序按照运算规则,按照括号优先、乘除优先的原则进行...
  • VB 排序 简单排序 文本框取数字排序 字符串数字排序
  • 判断是否含有字母 select PATINDEX('%[A-Za-z]%', ... 您可能感兴趣的文章:MS SQL 实现验证字符串是否包含有大小写字母的功能详解MySQL查询时区分字符串中字母大小写的方法SqlServer 获取字符串中小写字母的sql语句
  • VB编程:获取字符串数字个数-50

    千次阅读 2017-02-06 09:59:38
      程序代码: Private Sub Form_Click()  Dim i As Integer, j As Integer  j = 0  ...‘判断是否为数字   j = j + 1   End If  Next i  Print j End Sub
  • 获得中英文混合字符串的字节长度 VB6.0源代码,VB 采用 StrConv、LenB函数实现的功能,就是这两个函数的用法示例,比较简单,面向VB编程初学者。关键的一句:  Label2.Caption = LenB(StrConv(Text1.Text, ...
  • Vb.net字符操作函数()

    万次阅读 2016-10-20 16:19:22
     函数 语法 功能 ...Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从s
  • VB字符串处理大全

    万次阅读 2018-09-16 11:56:53
    1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串  2.3 创建字符串  2.4 获取字符串的长度  2.5 格式化字符串  2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回...
  • vb含有数字字符串,使用mid函数怎么把其中的数字截取出来,去掉空白和制表?怎么用mid截取字符串数字部分?

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 23,641
精华内容 9,456
关键字:

vb将字符串转数字