精华内容
下载资源
问答
  • 看了二十四画生的Blog的大小写金额转换函数,自己也对照着写了个VB.NET的,然后用类封装了一下。 原版C#版的,可以看原作者的代码。 Public Class Currency Inherits Object Private Const ...
    看了二十四画生的Blog的大小写金额转换函数,自己也对照着写了个VB.NET的,然后用类封装了一下。
    原版C#版的,可以看原作者的代码

        Public Class Currency

            Inherits Object

     

            Private Const CST_CAPSTR_TAIL As String = ""

            Private Const CST_CAPSSTR_ZERO As String = ""

            Private Const CST_CAPSSTR As String = CST_CAPSSTR_ZERO & "贰叁肆伍柒捌玖"

            Private Const CST_POSSTR_YUAN As String = ""

            Private Const CST_POSSTR As String = "万仟佰拾亿仟佰拾万仟佰拾" & CST_POSSTR_YUAN & "角分"

            Private Const CST_CHNNUM_ZERO As String = CST_CAPSSTR_ZERO & CST_POSSTR_YUAN & CST_CAPSTR_TAIL

     

            Private Shared ReadOnly CST_MAXLENGTH As Integer = CST_POSSTR.Length

     

            Public Shared Function ConvertToCapsString(ByVal dec As Decimal) As String

                Dim i, j, nZero As Integer

                Dim strDec, strPos, ch1, ch2 As String

                Dim chnNum, chnPos As String

                Dim strOnePosValue As String

                Dim intOnePosValue As Integer

     

                'num绝对值并四舍五入取2位小数

                dec = Math.Round(Math.Abs(dec), 2)

                'num100转换成字符串形式

                strDec = Convert.ToInt64(dec * 100).ToString

                '找出最高位

                j = strDec.Length

                If i > CST_MAXLENGTH Then

                    Throw New OverflowException

                ElseIf dec = 0 Then

                    '零元的候,直接出“零元整”

                    chnNum = CST_CHNNUM_ZERO

                Else

                    '取出对应位数的str2。如:200.55,j5所以str2=佰拾元角分

                    strPos = CST_POSSTR.Substring(CST_MAXLENGTH - j)

                    '取出一位需要转换

                    For i = 0 To j - 1

                        '取出需转换的某一位的

                        strOnePosValue = strDec.Substring(i, 1)

                        '转换为数字

                        intOnePosValue = Convert.ToInt32(strOnePosValue)

                        If i <> j - 3 AndAlso i <> j - 7 AndAlso i <> j - 15 Then

                            '当所取位数不元、万、亿、万亿上的数字

                            If strOnePosValue = "0" Then

                                '此位零,只入零的个数。不转换

                                ch1 = ""

                                ch2 = ""

                                nZero = nZero + 1

                            Else

                                '此位非零

                                If nZero = 0 Then

                                       '前面没有零,追加此位的中文

                                       ch1 = CST_CAPSSTR.Substring(intOnePosValue * 1, 1)

                                       ch2 = strPos.Substring(i, 1)

                                       nZero = 0

                                Else

                                       '前面已有零,无有多少只加一个零,然后追加此位的中文

                                       ch1 = CST_CAPSSTR_ZERO & CST_CAPSSTR.Substring(intOnePosValue * 1, 1)

                                       ch2 = strPos.Substring(i, 1)

                                       nZero = 0

                                End If

                            End If

                        Else

                            '位是万亿亿,万,元位等关键

                            If strOnePosValue <> "0" AndAlso nZero <> 0 Then

                                ch1 = CST_CAPSSTR_ZERO & CST_CAPSSTR.Substring(intOnePosValue * 1, 1)

                                ch2 = strPos.Substring(i, 1)

                                nZero = 0

                            Else

                                If strOnePosValue <> "0" AndAlso nZero = 0 Then

                                       ch1 = CST_CAPSSTR.Substring(intOnePosValue * 1, 1)

                                       ch2 = strPos.Substring(i, 1)

                                       nZero = 0

                                Else

                                       If strOnePosValue = "0" AndAlso nZero >= 3 Then

                                           ch1 = ""

                                           ch2 = ""

                                           nZero = nZero + 1

                                       Else

                                           If j > 11 Then

                                               '亿以上

                                               ch1 = ""

                                               nZero = nZero + 1

                                           Else

                                               '亿以下

                                               ch1 = ""

                                               ch2 = strPos.Substring(i, 1)

                                               nZero = nZero + 1

                                           End If

                                       End If

                                End If

                            End If

                        End If

                        If i = j - 11 OrElse i = j - 3 Then

                            '如果位是亿位或元位,写上

                            ch2 = strPos.Substring(i, 1)

                        End If

                        chnNum = chnNum & ch1 & ch2

                        If i = j - 1 AndAlso strOnePosValue = "0" Then

                            '最后一位(分)0,加上

                            chnNum = chnNum & CST_CAPSTR_TAIL

                        End If

                    Next

                End If

                Return chnNum

            End Function

     

            Public Shared Function ConvertToCapsString(ByVal dec As String) As String

                Dim num As Decimal = 0

                Try

                    num = Convert.ToDecimal(dec)

                Catch ex As Exception

                    Throw New InvalidateDecimalFormatException(dec)

                End Try

                Return ConvertToCapsString(num)

            End Function

     

            Public Class OverflowException

                Inherits Exception

     

                Public Sub New()

                    MyBase.New("Overflow in parameter. To string length must less than " & CST_MAXLENGTH & ".")

                End Sub

     

            End Class

     

            Public Class InvalidateDecimalFormatException

                Inherits Exception

     

                Private m_val As String

     

                Public ReadOnly Property Value() As String

                    Get

                        Return m_val

                    End Get

                End Property

     

                Public Sub New(ByVal val As String)

                    MyBase.New("The string value cannot be converted to decimal.")

                    m_val = val

                End Sub

     

            End Class

     

        End Class

    转载于:https://www.cnblogs.com/farrio/archive/2005/03/30/128582.html

    展开全文
  • C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化 在C#项目中添加引用Microsoft.VisualBasic.dll, 可以在C#程序中直接使用VB.NET中丰富的函数 1// 命令行编译 : csc /r:Microsoft.VisualBasic.dll...

    C#中直接调用VB.NET的函数,兼论半角与全角、简繁体中文互相转化

    在C#项目中添加引用Microsoft.VisualBasic.dll, 可以在C#程序中直接使用VB.NET中丰富的函数

     1// 命令行编译 : csc /r:Microsoft.VisualBasic.dll Test.cs
     2
     3// 如果是用 Visual Studio .NET IDE, 请按以下方法为项目添加引用:
     4// 打开[解决方案资源管理器], 右击项目名称, 选择[添加引用],
     5// 从列表中选择 Microsoft Visual Basic .NET Runtime 组件.
     6
     7using Microsoft.VisualBasic;
     8
     9class Test
    10{
    11  static void Main()
    12  {
    13    string s = "博客园-空军 [skyIV.cnBlogs.com]";
    14    System.Console.WriteLine(s);
    15    s = Strings.StrConv(s, VbStrConv.Wide              , 0); // 半角转全角
    16    s = Strings.StrConv(s, VbStrConv.TraditionalChinese, 0); // 简体转繁体
    17    System.Console.WriteLine(s);
    18    s = Strings.StrConv(s, VbStrConv.ProperCase        , 0); // 首字母大写
    19    s = Strings.StrConv(s, VbStrConv.Narrow            , 0); // 全角转半角
    20    s = Strings.StrConv(s, VbStrConv.SimplifiedChinese , 0); // 繁体转简体
    21    System.Console.WriteLine(s);
    22  }

    23}

     

     

    C#忽略大小写的方法

    string.Compare(strDataTemp,strTagTemp,true)

     

    展开全文
  • VB中经常用到字母的大小写转换,CharUpperBuff()是把小写字母转化为大写字母的api 函数,使用前需要声明;Private Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA" ...

    在VB中经常用到字母的大小写转换,CharUpperBuff()是把小写字母转化为大写字母的api 函数,使用前需要声明;

    Private Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long

    其中的参数lpsz是你要进行转换的字符串变量;

    cchlength是你要进行转换的字符串长度变量;

    从第一个字符算起,把长度变量指出的一定长度的小写字符转换为大写字符,如果遇到了非小写字符(其他符号和大写字符)就忽略过去。

    例如:

    Dim c1 As Integer 

    Dim s1 As String 

    Private Sub Command1_Click()
    s1 = Text1.Text
    c1 = 5
    CharUpperBuff s1, c1
    Text2.Text = s1

    End Sub

    意思是从头开始把text1中的前5个字符变成大写如果有小写的就转化为大写,如果已经是大写了就忽略。c1也可以大于s1的实际字符数而不报错。



    展开全文
  • 实际上,在VB中从一种数据库类型转化为另一种数据库类型几乎不需要或只需要很少的代码修改。而且,尽管dBASE、Paradox本身的DDL (Data Definition Language,即数据定义语言)和DML(Data Manipulation Language,...
  • DataTable是什么? DataTable 是一个临时保存数据的网格虚拟表(表示内存中数据的一个表。)。...它可以被应用在 VB 和 ASP ...当访问DataTable对象时,请注意它们是按条件区分大小写的。例如,如果一个DataTable被命名为

    DataTable是什么?

    DataTable 是一个临时保存数据的网格虚拟表(表示内存中数据的一个表。)。DataTable是ADO dot net库中的核心对象。它可以被应用在 VB 和 ASP 上。它无须代码就可以简单的绑定数据库。它具有微软风格的用户界面。

     

    注意!!!

    当访问DataTable对象时,请注意它们是按条件区分大小写的。例如,如果一个DataTable被命名为“mydatatable”,另一个被命名为“Mydatatable”,则用于搜索其中一个表的字符串被认为是区分大小写的。但是,如果“mydatatable”存在而“Mydatatable”不存在,则认为该搜索字符串不区分大小写。一个DataSet可以包含数个DataTable对象,它们具有相同的TableName属性值和不同的Namespace属性值。有关使用DataTable对象的更多信息。

     

     

    DataTable的作用是什么?

     

    在机房重构的时候我们都会将数据库的数据读取出来,经常使用的是就是DataTable数据类型,将数据库中表的信息读取出来,存在临时数据表中,即DataTable表,然后将在其他层中需要数据传参的就直接将方法定义为DataTable类型的(除非有特殊要求)。而另一种存储数据的方式就泛型集合,将DataTable转换成泛型,然后通过泛型再去传递数据。

           

           DataTable的数据改动需要根据数据库表中的信息操作,例如,如果我想将数据库某表的某个新字段读取出来,那么用DataTable需要重新查看数据库,然后间接就将数据库中的信息暴露了,除非是同一个人操作,不过那样不灵活了。

     

    泛型是什么?

           泛型是具有占位符(类型参数)的类、结构、接口和方 法,这些占位      符是类、结构、接口和方法存储或者使用的一个或多个类型的占位符。

     

    泛型集合类可以将类型参数用作它所存储的对象的类型的占位符;类型参数作为其字段的类型或其方法的参数类型出现。泛型的方法还可以将参数类型用作返回值类型或者某个形参的类型。

         

    泛型集合其实就是一个个的实体类集合,我们在没有接触这个概念前,数据库访问返回的类型有实体、DataTable、Boolean。下面是画了几张示意图:

     

     

     

     

     

    使用泛型的好处?

    如果不用泛型集合,你要是查询有多少个用户的时候(添加删除用户),单个实体和Boolean肯定是不行的,DataTable倒是可以,但是它因为高耦合(一个用户信息变化,就得修改DataTable),使系统运行的性能会不好.

     

     

     

     

    如何DataTable类型转化为泛型集合?

      public List<T>ConvertToList<T>(DataTable dt) where T : new()

            {

                //初始化,获得类型,string类型变量

                List<T> ts = newList<T>();

                //获得此类型的模型

                Type type = typeof(T);

                String tempName = "";

     

                foreach (DataRow dr in dt.Rows)

                {

                    T t = new T();

                    //获得此模型的公共属性

                    PropertyInfo[] propertys =t.GetType().GetProperties();

                    //foreach(类型 要用的变量名称 in之前声明的变量名称)

                    foreach (PropertyInfo pi inpropertys)

                    {

                        tempName = pi.Name;

                        //检查DataTable是否包含此列

                        if(dt.Columns.Contains(tempName))

                        {

                            // 判断此属性是否有Setter

                            if (!pi.CanWrite)continue;

                            object value =dr[tempName];

                            if (value !=DBNull.Value)

                                pi.SetValue(t,value, null);

                        }

                    }

                    ts.Add(t);

                }

     

                return ts;

            }

     

     

    但是没理解他们到底有什么不同,及时不用泛型,我也可以将数据源存到DataTable,然后方法返回值也定义为DataTable型,请高手指点!

    展开全文
  • JS学习-常见问题

    千次阅读 热门讨论 2013-11-28 21:56:45
    区分大小写  JS中方法和变量都是区分大小写的,例如 ... 自己使用过的语言中除了VBVB.Net不区分外(自动转化),C++、C#、Java都区分大小写。   单引号、双引号  JS中对单引号和双引号的使用没有
  •  可惜问题还是不少 我用Delphi个吧(网上似乎有VC/VB的源码)这个是实现的核心单元,多谢chinasf提供的思路 可以转化64K以上的文件了,这是一个升级版本,修正原版转化速度离奇慢的问题  修正原版了NT下不能运行 ...
  • 本身这个控件不是我的,功能很强大,我自己增加了固定列的功能并且把它做成了activex ,里面的函数属性等等只转化activex接口一部分,部分没有做。里面有一个简单的vb例子, VC++6.0开发的
  • 在前面的话 一直以来,对计算机技术有着强烈的热爱,无奈专业不是计算机,在计算机的学习上一直是自学的业余状态...曾自学了C++、python、VB等语言,利用它们可以实现一些的想法,但是它们都有个缺点,就是我不...
  • vim 配置文件

    2015-09-10 22:23:50
    set ignorecase " 搜索时忽略大小写 set magic " 额,自己:h magic吧,一行很难解释 set showmatch " 显示匹配的括号 set nobackup " 关闭备份 set nowb "set noswapfile " 不使用swp文件,注意,错误退出后无法恢复...
  • 实例023 金额大小写转换 2.3 常用的函数与语句 实例024 大小写转换 实例025 程序立即退出 实例026 数字与字符串的转换 实例027 文本字数统计 实例028 一封家书 2.4 条件语句 实例029 使用If语句判断成绩...
  • 实例023 金额大小写转换 2.3 常用的函数与语句 实例024 大小写转换 实例025 程序立即退出 实例026 数字与字符串的转换 实例027 文本字数统计 实例028 一封家书 2.4 条件语句 实例029 使用If语句判断成绩...
  • Pegasus Imaging ImagXpress 8.0.23 注册机

    热门讨论 2009-09-06 17:50:01
    展示了如何为各种映像函数和应用部署生成脚本 <br>特性 <br> 开发环境:Win32可视开发环境 <br>示例程序包括:.NET、 VB、 Delphi、VC++、C++ Builder、HTML、Access <br>在.NET下作为一个控件来使用...
  • 实际上C#就一般的操作来说,只是区分大小写和多了一个分号这两点与VB.NET不同其他都差不多啊。在ASP里面我们读取数据就直接用RECORDSET,然后在HTML代码里面穿插就可以显示了,但是ASP.NET讲究的是代码分离,如果...
  • GExperts 1.32 For Delphi 7

    2011-11-08 09:22:45
    如图2所示,首先输入你想查找的内容,然后在选项中可以选择一下内容:是否大小写敏感、是否忽略注释内容、是否整字模式、是否搜索DFM文件、是否使用表达式进行搜索(表达式搜索是Grep内含的一项强大的功能);...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • 中国的软件企业比较,涉及的方面比较细、比较基础,比如常会考基础性编程的问题,如const、sizeof、类型转化等。一些国内公司(北大方正、北大青鸟等)的面试题,多半是浅显的基础的问询。换句话说就是,他们考得...
  • 中国的软件企业比较,涉及的方面比较细、比较基础,比如常会考基础性编程的问题,如const、sizeof、类型转化等。一些国内公司(北大方正、北大青鸟等)的面试题,多半是浅显的基础的问询。换句话说就是,他们考得...
  • NTKO OFFICE文档控件,支持文档电子签名[数字签名],支持PHP,ASP,JSP,C#,VB.NET,DOMINO等各种web编程语言和服务器的在线编辑痕迹保留手写签名电子印章全屏批注控件。 NTKO OFFICE文档控件能够在浏览器窗口中直接...
  • 1345个易语言模块

    2012-01-27 19:41:59
    1345个易语言模块,易语言模块集合,够你用的啦 1亦思验证码识别1.5免费版.ec 24位转单色位图模块.ec 32张发牌.ec 3D引擎支持库-eOgre.ec 69msn.ec ACCESS 到高级表格.ec Access操作.ec Access数据库压缩修复新建....
  • asp.net知识库

    2015-06-18 08:45:45
    忽略大小写Replace效率瓶颈IndexOf 随机排列算法 理解C#中的委托[翻译] 利用委托机制处理.NET中的异常 与正则表达式相关的几个小工具 你真的了解.NET中的String吗? .NET中的方法及其调用(一) 如何判断ArrayList,...
  • DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1350多个精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 23.人民币大小写转换 24.获取区域颜色值 25.获取活动工作表名 26.获取最后一行行数 27.判断是否连接在线 28.币种转换 29.检验工作表是否有可打印内容 30.查找一字符串(withinstr)在另一字符串中(findstr1)中某一次...
  • 这是个小型的系统,从投入的人力,财力与物力来讲是非常的,发布出去之需要注册域名就可以了,从节省人力方面,可以让管理人员从繁与复杂的工作中解脱出来,做更多的工作。 2.2.3. 管理可行性 有IP地址、用户名...
  • 这是个小型的系统,从投入的人力,财力与物力来讲是非常的,发布出去之需要注册域名就可以了,从节省人力方面,可以让管理人员从繁与复杂的工作中解脱出来,做更多的工作。 2.2.3. 管理可行性 有IP地址、用户名...
  • 占用资源。 14.CTS、CLS、CLR分别作何解释? 答:CTS:通用语言系统。CLS:通用语言规范。CLR:公共语言运行库。 15.什么是装箱和拆箱? 答:从值类型接口转换到引用类型装箱。从引用类型转换到值类型拆箱。 ...
  • 函数作用:人民币大小写转换.........................52 '24.函数作用:获取区域颜色值...........................53 '25.函数作用:获取活动工作表名.........................53 '26.函数作用:获取最后一行行数.......

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

vb转化大小写