精华内容
下载资源
问答
  • VBA示例之 从字符串提取纯数字,供初学者参考,大牛勿进~~~~~~~
  • VB字符串转16进制数

    2017-07-12 20:59:37
    工具,函数
  • vb 字符串数字相互转换函数

    千次阅读 2016-06-14 23:19:00
    字符串转换的函数主要有: Str()和Val()用于字符串数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; Chrw()和Ascw()用于Unicode码和中文的相互转换; Format()函数用途十分广泛的一个函数,功能十分强大....

    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

    展开全文
  • 效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text)  '转字符串 ...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()函数,数字转换为字符串。



    展开全文
  • 格式设置是将类型(如数字、日期等)的值转换字符串表示形式的过程,通常使得最终的字符串以友好的格式显示给用户,也可以理解为其他数据类型以想要的格式转换成字符串。通常使用 Object.ToString方...

    数据应该以友好的格式呈现给用户,例如,电话号码可以存储为 8009999999 格式,但我们更喜欢这样来显示给用户: 800-999-9999。 这就需要我们对存储的数据进行格式化后再呈现出来。
    格式设置是将类型(如数字、日期等)的值转换为字符串表示形式的过程,通常使得最终的字符串以友好的格式显示给用户,也可以理解为把其他数据类型以想要的格式转换成字符串。通常使用 Object.ToString方法、 String.Format 方法或StringBuilder.AppendFormat方法对数据进行格式设置。
    官方帮助网页:设置 .NET 中类型的格式

    一、Object.ToString方法

    1、数字格式字符串

    数字.ToString(format)
    参数:format——String,标准或自定义的数值格式字符串。
    返回:String,此实例的值的字符串表示形式,由 format 指定。
    如(帮助页的示例代码):

            Dim floating As Double = 10761.937554
            Console.WriteLine("C: {0}",
                  floating.ToString("C"))
            Console.WriteLine("E: {0}",
                  floating.ToString("E03"))
            Console.WriteLine("F: {0}",
                  floating.ToString("F04"))
            Console.WriteLine("G: {0}",
                  floating.ToString("G"))
            Console.WriteLine("N: {0}",
                  floating.ToString("N03"))
            Console.WriteLine("P: {0}",
                  (floating / 10000).ToString("P02"))
            Console.WriteLine("R: {0}",
                  floating.ToString("R"))
            Console.WriteLine()
    
            Dim integral As Integer = 8395
            Console.WriteLine("C: {0}",
                  integral.ToString("C"))
            Console.WriteLine("D: {0}",
                  integral.ToString("D6"))
            Console.WriteLine("E: {0}",
                  integral.ToString("E03"))
            Console.WriteLine("F: {0}",
                  integral.ToString("F01"))
            Console.WriteLine("G: {0}",
                  integral.ToString("G"))
            Console.WriteLine("N: {0}",
                  integral.ToString("N01"))
            Console.WriteLine("P: {0}",
                  (integral / 10000).ToString("P02"))
            Console.WriteLine("X: 0x{0}",
                  integral.ToString("X"))
            Console.WriteLine()
    

    测试结果如图:
    在这里插入图片描述
    不同电脑格式化的结果可能不同,结果的呈现与操作电脑的控制面板中 “区域和语言选项” 项中的设置有关。如果你想呈现特定“区域和语言选项”的字符串结果,请使用以下方法。
    数字.ToString(format,provider)
    参数:format——String,标准或自定义的数值格式字符串;provider——IFormatProvider,一个提供区域性特定的格式设置信息的对象。
    返回:String,此实例的值的字符串表示形式,由 format 和 provider 指定。
    如以下代码使用 en-US 区域性设置数值的格式:

            ' Display string representations of numbers for en-us culture
            Dim ci As New System.Globalization.CultureInfo("en-us")
    
            ' Output floating point values
            Dim floating As Double = 10761.937554
            Console.WriteLine("C: {0}",
                  floating.ToString("C", ci))           ' Displays "C: $10,761.94"
            Console.WriteLine("E: {0}",
                  floating.ToString("E03", ci))         ' Displays "E: 1.076E+004"
            Console.WriteLine("F: {0}",
                  floating.ToString("F04", ci))         ' Displays "F: 10761.9376"         
            Console.WriteLine("G: {0}",
                  floating.ToString("G", ci))           ' Displays "G: 10761.937554"
            Console.WriteLine("N: {0}",
                  floating.ToString("N03", ci))         ' Displays "N: 10,761.938"
            Console.WriteLine("P: {0}",
                  (floating / 10000).ToString("P02", ci)) ' Displays "P: 107.62 %"
            Console.WriteLine("R: {0}",
                  floating.ToString("R", ci))           ' Displays "R: 10761.937554"            
            Console.WriteLine()
    
            ' Output integral values
            Dim integral As Integer = 8395
            Console.WriteLine("C: {0}",
                  integral.ToString("C", ci))           ' Displays "C: $8,395.00"
            Console.WriteLine("D: {0}",
                  integral.ToString("D6"))              ' Displays "D: 008395" 
            Console.WriteLine("E: {0}",
                  integral.ToString("E03", ci))         ' Displays "E: 8.395E+003"
            Console.WriteLine("F: {0}",
                  integral.ToString("F01", ci))         ' Displays "F: 8395.0"    
            Console.WriteLine("G: {0}",
                  integral.ToString("G", ci))           ' Displays "G: 8395"
            Console.WriteLine("N: {0}",
                  integral.ToString("N01", ci))         ' Displays "N: 8,395.0"
            Console.WriteLine("P: {0}",
                  (integral / 10000).ToString("P02", ci)) ' Displays "P: 83.95 %"
            Console.WriteLine("X: 0x{0}",
                  integral.ToString("X", ci))           ' Displays "X: 0x20CB"
            Console.WriteLine()
    

    测试结果如图:
    在这里插入图片描述
    示例代码使用两个特定的数值类型(Double 和 Int32),但对于任何一个其他数值基类型(Byte、SByte、Int16、Int32、Int64、UInt16、UInt32、UInt64、BigInteger、Decimal 和 Single)都将产生类似的结果。

    2、日期和时间格式字符串

    与数字格式字符串类似,直接上测试代码:

            Dim date1 As Date = #4/10/2008#
            Console.WriteLine(date1.ToString("d"))
    

    结果的呈现与操作电脑的控制面板中 “区域和语言选项” 项中的设置有关。以特定语言呈现的代码如下:

            Dim date1 As Date = #4/10/2008#
            Console.WriteLine(date1.ToString("d", Globalization.DateTimeFormatInfo.InvariantInfo))
            ' Displays 04/10/2008
            Console.WriteLine(date1.ToString("d",
                              Globalization.CultureInfo.CreateSpecificCulture("en-US")))
            ' Displays 4/10/2008                       
            Console.WriteLine(date1.ToString("d",
                              Globalization.CultureInfo.CreateSpecificCulture("en-NZ")))
            ' Displays 10/04/2008                       
            Console.WriteLine(date1.ToString("d",
                              Globalization.CultureInfo.CreateSpecificCulture("de-DE")))
            ' Displays 10.04.2008
    

    二、String.Format方法

    String.Format(format,arg0)
    参数:format——String,任何格式设置;arg0——Object,要设置格式的对象。
    返回:String,format 的副本,其中的任何格式项均替换为 arg0 的字符串表示形式。
    如:

            '数字格式字符串
            Console.WriteLine(String.Format("{0:D10}", 79203159)) '输出结果  0079203159
    
            '日期时间格式字符串
            Dim date1 As Date = #4/10/2008#
            Console.WriteLine(String.Format("{0:d}", date1)) '输出结果 2008/4/10
    

    如果要呈现特定“区域和语言选项”的字符串结果,请使用以下方法。

            '指定区域语言为"en-us"
            Dim ci As New System.Globalization.CultureInfo("en-us")
    
            '数字格式字符串
            Console.WriteLine(String.Format(ci, "{0:c}", 79203159)) '输出结果  $79,203,159.00
    
            '日期时间格式字符串
            Dim date1 As Date = #4/10/2008#
            Console.WriteLine(String.Format(ci, "{0:d}", date1)) '输出结果 4/10/2008
    

    这里说明一下format参数的书写格式:"{0:格式说明符}",如"{0:d}"。
    如果仅单纯的进行格式化笔者喜欢Object.ToString方法,简洁易懂,String.Format方法单纯的格式化文本不是他的目的,他重要用途是向一个字符串插入一个格式化了的字符串,如:

           '输出——今天是: 2019年1月9日,这是个特别的日子!
            Console.WriteLine(String.Format("今天是: {0:D},这是个特别的日子!", DateTime.Now))
    

    测试结果如图:
    在这里插入图片描述

    三、附录

    1、标准的数字格式说明符

    标准数字格式字符串用于格式化通用数值类型。标准数字格式字符串采用 Axx 的形式,其中 A 是称为格式说明符的字母型字符, xx 是称为精度说明符的可选整数。 精度说明符的范围从 0 到 99,并且影响结果中的位数。
    参考:标准数字格式字符串
    在这里插入图片描述

    2、自定义数字格式字符串

    任何包含一个以上字母字符(包括空白)的数字格式字符串都被解释为自定义数字格式字符串。
    参考:自定义数字格式字符串
    在这里插入图片描述

    3、标准日期和时间格式字符串

    参考:标准日期和时间格式字符串
    格式说明符——说明
    “d”——短日期模式。
    “D”——长日期模式。
    “f”——完整日期/时间模式(短时间)。
    “F”——完整日期/时间模式(长时间)。
    “g”——常规日期/时间模式(短时间)。
    “G”——常规日期/时间模式(长时间)。
    “M”、“m”——月/日模式。
    “O”、“o”——往返日期/时间模式。
    “R”、“r”——RFC1123 模式。
    “s”——可排序日期/时间模式。
    “t”——短时间模式。
    “T”——长时间模式。
    “u”——通用可排序日期/时间模式。
    “U”——通用完整日期/时间模式。
    “Y”、“y”——年月模式。
    任何其他单个字符——未知说明符。引发运行时 FormatException。

    4、自定义日期和时间格式字符串

    参考:自定义日期和时间格式字符串

    5、标准 TimeSpan 格式字符串

    参考:标准 TimeSpan 格式字符串

    6、自定义的 TimeSpan 格式字符串

    参考:自定义的 TimeSpan 格式字符串

    展开全文
  • 可是他说不一定是int型转化字符串,我着这样回答的:循环将这个数字乘以10,计数。转化为long型后,使用_ltoa()函数,然后再在相应的位置上加上一个小数点。现在想想这是一个很笨的解决方案。他说其实只需要一行.....

    今天跟一个在腾讯工作的同学聊天了,他问我如何将一个数转换为一个字符串,我跟他说是这样的:

    char buffer[10];
    _itoa(i, buffer, 10);
    可是他说不一定是int型转化为字符串,我着这样回答的:循环将这个数字乘以10,计数。转化为long型后,使用_ltoa()函数,然后再在相应的位置上加上一个小数点。现在想想这是一个很笨的解决方案。他说其实只需要一行代码就可以了,我看后感觉很好,也很常用,写到这里供大家参考。
    #define toString(x) #x
    这个宏就可以将所有的数字,包括int型、long型和double型转换为相对应的字符串。关于这种类似的用法还有:
    #define makechar(x)    #@x
    a = makechar(b);
    这个结果就相当于a='b'。
    #define stringer( x ) printf( #x "\n" )

      void main()
    {
            stringer( In quotes in the printf function call\n );
            stringer( "In quotes when printed to the screen"\n );    
            stringer( "This: \"    prints an escaped double quote" );
    }

      //预处理时将会产生如下代码。

      void main()
    {
         printf( "In quotes in the printf function call\n" "\n" );
         printf( "\"In quotes when printed to the screen\"\n" "\n" );
         printf( "\"This: \\\" prints an escaped double quote\"" "\n" );
    }

      运行结果:

      In quotes in the printf function call

      "In quotes when printed to the screen"

      "This: \" prints an escaped double quotation mark"
    这种用法可以省去转义字符(\),很方便代码的编写。
    关于#的用法还有很多,希望有兴趣的读者能够留言,我们一起讨论。

    本文出自 “C++技术” 博客,请务必保留此出处http://panpan.blog.51cto.com/489034/102813

     

    实践:

    #define toString(x) (#x)
    #define stringer(x) (printf(#x"\n"))
    #define mynameandbirthday(x) ("hekexin"#x)

    int main()

    {

        std::string str(toString(1000));
        std::cout<<str<<std::endl;
        stringer(hello world);
        stringer(1234fff5455);

        std::cout<<mynameandbirthday(19841102)<<std::endl;
        std::cout<<mynameandbirthday(19841223)<<std::endl;

      return 0;

    }

    展开全文
  • 返回包含于字符串内的数字字符串中是一个适当类型的数值。 语法 Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明 Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。...
  • VB6 字符串和16进制互转换

    千次阅读 2018-11-08 22:33:04
    自己写的两个函数,用于字符串和16进制互转换的,支持中文转换,中文编码写入IC卡非常方便   Public Function StrToHex(ByVal strS As String) As String '将字符串转换为16进制 Dim abytS() As Byte Dim ...
  • VB把数字中文字符串 (转)[@more@]根据数字的读法,写了一个把数字中文字符串的程序参数一为数字参数二为是不是反回人民币大写参数三为是不是直接读数字,否则带有十百等单位参数四为设置小数点后面的位数...
  • 2、数字转化字符串使用cstr  如:cstr(456)将输出字符串"456" VBscript中的字符串函数 在VBscript中,系统提供了大量的字符串函数来处理有关字符串的事情。在 Javascript 中,系统为String对象提供了许多方法...
  • VB字符串处理大全

    万次阅读 2018-09-16 11:56:53
     2.2 转换字符串  2.3 创建字符串  2.4 获取字符串的长度  2.5 格式化字符串  2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11 使用字节的函数...
  • 数字面前加0转成字符串 /** * 格式化数字 * @param num:数字 * @param len:格式化后长度 * 示例:fmtNumber(6, 2) =&gt; "06",fmtNumber(4, 5) =&gt; "00004&...
  • string与字符串转换

    千次阅读 2019-10-03 14:55:38
    一、从文件中读取字符串 即是getline的用法。 1、在中的getline()函数有两种重载形式 stream& getline (char* s, streamsize n ); istream& getline (char* s, streamsize n, char delim ); 2、 在中的...
  • Len Len(string|varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。  Trim Trim(string) 将字符串前后的空格去掉  Ltrim Ltrim(string) 将字符串前面的空格去掉  Rtrim Rtrim(string) 将字符...
  • [color=red]整型转换成字符串[/color] CStr(int) [color=red]不等于的表示方法[/color] [color=red]截取字符串[/color] 从左截取left$(字符串,n):n是要截取的字符个数 从中间截取Mid$(字符串,p...
  • 这个问题看是很简单,但是在不同语言中实现的方式却千差万别,如果不知道方法,还真是...一、16进制字符串数字 1、C/C++ I、最简单的办法:sscanf(“12AB”,,”%x”,&lngHex); //字符也可以为”0x12AB” ...
  • 我们推荐生成随机数算法如下:调用随机数函数生成,将得到的值转换字符串。 不清楚说的啥玩意.只能就 简单粗暴的写了一个函数…,int类型在这里不合适,需要使用str类型 代码 import random def generate_random_...
  • VB 异或(Xor)字符串的方法

    千次阅读 2020-09-28 22:36:20
    VB 异或(Xor)字符串的方法 关键字:VB,VBA,异或,Xor,字符串 文章目录VB 异或(Xor)字符串的方法前言一、方法一,比较笨。二、方法二,感觉轻松多了。三、说一说关于UltraISO的部分算法 前言 简介:大家都...
  • vb.net字符串日期型转换

    千次阅读 2014-03-31 21:02:25
    如何把字符串转为日期型呢? 例如:“20120814”如何转为日期型。 关键:先将字符串形成日期型的“形式” 比如“20120814” 形成: “2012-08-14” 或"2012/08/14" 故:举例如下: Dim a As Date  ...
  • 最近在做一个vb.net写的一个网站,有一次同学有个问题问我,说程序总是抛出“从字符串“aa”到类型“Double”的转换无效”的错误。我过去一 看是个操作数据库的函数,我一开始想到的就是给参数赋值赋错了,引发的...
  • 将16进制的字符串表示形式转换为等效的64位有符号整数,进制的基数,必须为2,8,10 或16。。 如果fromBase为16,则可以将value参数指定的数字加上前缀“0x”或“0X”。 VB代码示例: 'Declaration Public Shared...
  • VB字符串处理函数一览

    万次阅读 2017-10-10 11:49:20
    VB字符串处理函数一览 mid(字符串,从第几个开始,长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串]  例如 mid("小欣无敌",1,3) 则返回 "小欣无"  instr(从第几个开始,字符串1,...
  • '先定义2个结构Parent和Plus,这2个定义放在代码段最前面Private Type Parent s As String value As DoubleEnd TypePrivate Type Plus s As String value As DoubleEnd Type'下面是实现此功能的函数的定义,比较长...
  • VB Byte数组转换字符串(兼容中英文),VB Byte数组转换字符串(中英文),VB Byte数组转换字符串(兼容中文),VB Byte数组转换字符串(兼容英文),VB Byte转换字符串VB Byte转换字符串VB Byte转字符串VB ...
  • 16进制字符串数字(C/C++ VB/VB net C )
  • 将string转换成Color类型 例如: `Dim StrColor As String 'String类型数据 Dim CLColor As Color 'Color类型数据 StrColor = Color.Red '颜色 CLColor = Color.FromName(StrColor )` '将String类型转换成Color...
  • VB常用字符串函数

    千次阅读 2015-02-27 09:27:30
    P=Asc(X) 返回字符串X的第一个字符的字符码  P=Chr(X) 返回字符码等于X的字符  [范例]:  (1)P=Chr(65)  ‘ 输出字符A,因为A的ASCII码等于65  (2)P=Asc(“A”)  ‘ 输出65  2. Len(X): 计算...
  • str = InputBox("请输入数字") i = Val(str) 'i = InputBox("请输入数字") '判断输入的数字 Select Case i Case 1: MsgBox ("一") Case 2: MsgBox ("二") Case 3: MsgBox ("三") Case Else: MsgBox ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 13,901
精华内容 5,560
关键字:

vb把数字转换成字符串