VB.Net 怎样提取TextBox中指定文本前的数字？比如提取“34X+45Y=67Z"里的数字

VB.Net 怎样提取TextBox中指定文本前的数字？比如提取“34X+45Y=67Z"里的数字，并分别写入三个变量中，新人提问，恳请仔细回答

举报该问题

推荐答案推荐于2016-04-18

如果是固定格式的，
str=34X+45Y=67Z

x=split(str,"X")(0) ‘以X分割，取第0段，即：34
y=split(split(str,'+')(1),'Y')(0) '以+分割，取第1段即：45Y=67Z，再以Y分割，取0段得45

z=split(split(str,'=')(1),'Y')(0) '同上

把字符串分割，查找，截取这些常用字符串处理函数掌握了，
就差不多能随心所欲的处理了...

以上是vb6.0代码,追问

要Dim x As String吧

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WWXeOBWBt77tOWBOvjj.html

其他回答

第1个回答 2014-10-18

请给例子。

第2个回答 2014-10-18

刚从学校追问

您如果会VB.NET恳请指导！

相似回答

vb.net中怎么把textbox后面的数字弄成变量,比如我放置了10个textbox...答：采用对象数组的办法；声明一个文本框对象组，然后再启动窗体过程中，完成一一对应：Public Class Form1 Private MyTextBox(10) As TextBox Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MyTextBox(1) = TextBox1 : MyTextBox(2) ...

VB.NET textbox里所有指定字符串后面的数字相乘?答：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim s() As String s = Split(TextBox1.Text, vbCrLf)For i = 0 To UBound(s)If s(i) Like "time_0=*" Then s(i) = "time_0=" & Val(Split(s(i), "=")（1） * 2)Next TextBox1.Te...

vb.net 让相应的textbox中只能输入“中文字符、英文、数字”答：比如只能显示数字 Private Sub NumBox_KeyPress(KeyAscii As Integer) If Not IsNumeric(NumBox.Text) Then NumBox.Text = "" End IfEnd Sub只能显示英语（a-z 97-122； A-Z 65-90； 8（退格）和13（换行））Private Sub EngBox_KeyPress(KeyAscii As Integer) If Not (KeyAscii ...

VB.NET下,让textbox只能输入数字,小数点,和负号,我的代码哪里有错?_百 ...答：private str as string 'str最好定义到外面 Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp Dim d As Double If Double.TryParse(TextBox1.Text, d) Or TextBox1.Text = "-" Or TextBox1.Text.Trim()...

VB.NET中,比较四个数字的大小代码答：z = val(text3.text)j = val(text4.text)if x = then k = k+1 if y= then k = k+1 if z= then k = k+1 if j= then k = k+1 ' 若输入的数有负数则必须先在这里写下 n=-...（）do if x <>0 and n = x then text5.text = text5.text &" " & x k =...

大家正在搜