资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net文本转数字 vba数字转文本

求一个可以把汉字转换为数字的VB.NET程序

我用的C#,我和你说下,你要做这个的思路吧,要用到的知识点:比如说你在文本框里输入汉字,点一button按扭来转换,也就是说获取文本框字符串,然后切割字符串转化为数组,string [] str=textbox.text.ToCharArray()接下来用循环来一个方法for(int i=0,istr.length;i++){if(str[i]=="壹"){str[i]=str[i].replace(壹,1);/pp}else{str[i]=str[i].replace(贰,2);} //这里根据自己的需求}大概的知识点要用到这些,不过,还有待他人和你自己的补充,我用的C#,以前我做过一个类似的(数字转为汉字哈),不过,那全是用if....else 来判断的,希望你能看懂,对你有帮助

创新互联专注于象山企业网站建设,成都响应式网站建设公司,成都商城网站开发。象山网站建设公司,为象山等地区提供建站服务。全流程定制网站,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务

vb.net 2010 如何把文本框中的数字提取出来

源代码如下:(代码写在按钮点击事件里)

Label1.Text = ""

Label2.Text = ""

Dim a As String = TextBox1.Text

Dim b As String = TextBox2.Text

For x = 1 To a.Length

Dim txt As String = Mid(a, x, 1)

If txt Like "#" Then

Label1.Text = Label1.Text txt

End If

Next

For x = 1 To b.Length

Dim txt As String = Mid(b, x, 1)

If txt Like "#" Then

Label2.Text = Label2.Text txt

End If

Next

此方法用的是mid 将一个字符串拆分成单个字符,然后用like运算符进行对比是否为数字,关于这两个函数的用法如果不懂的可以自己搜索下,此外还有别的方法,这里就不多说了

VB 怎样将字符串转化为数值

最简单的就是直接转换,就是把字符串变量赋值给数值变量。\x0d\x0a数值变量=字符串\x0d\x0a\x0d\x0a如果必须转换,就使用 Val 函数赋值,会把字符串转换成双精度数。\x0d\x0a比如:数值变量=Val(字符串)\x0d\x0a例:\x0d\x0an = Val("3.5") ' 变量n赋值为3.5\x0d\x0a\x0d\x0a或者使用取整函数,也可以转换。\x0d\x0a比如:数值变量=Int(字符串) 或者 数值变量=CInt(字符串)\x0d\x0a例:\x0d\x0an = Int("3.5") ' 取整数,变量n赋值为3\x0d\x0a\x0d\x0an = CInt("3.5") ' 四舍五入取整数,变量n赋值为4

VB.NET如何把字符串(不全是数字或为空)转换成数字?

明白你的意思了,只要是字母都会转换成数字,帮你写好了("usernane"和 "pasward" 我这里写成 "username" 和" password")

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim username, password As String

Dim temp As Long

Dim r As String = ""

Dim v As String = TextBox1.Text

For Each c In v.ToString

If IsNumeric(c) Then

r = c

Else

r = ((Asc(c) - 65).ToString("00"))

End If

Next

username = r

temp = username * 3 - 500

password = CStr(temp)

TextBox2.Text = password

End Sub


当前标题:vb.net文本转数字 vba数字转文本
分享路径:http://www.cdkjz.cn/article/ddogdoc.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220