• 所有问题

    • VB逐一读取Text1里面的数字

    Text1里面有很多数字，我想取其中的一个读取，读取完之后再读取下一个，求代码，谢谢！

    举报该问题
    其他回答
    第1个回答  2015-12-10
    这要看到你的数据格式才能决定，能否列出一段数据看看？追问

    .

    第2个回答  2015-12-10
    那些数字是怎么排列的？使用逗号间隔 还是空格间隔 还是每一行一个数字呢？追问

    用逗号排列的

    追答

    dim a() as string
    a=split(text1.text)
    for i=0 to ubound(a)
    print a(i)

    next i

    a(i)就是取的值了

    追问

    再用Do循环吗

    追答

    不用
    for循环已经把每一个值取出来了。
    解决了的话 还请采纳哦，谢谢

    本回答被提问者采纳
    相似回答
    VB 中如何逐行读取文本框的内容?答：取出text1.text = "第3页"中的3，vb中一个汉字占一个字符，所以vb语句如下：mid(text1.text,2,1)
    VB随机选中text里的数字答：因为你没说text1、2、3里数字的位数是不是确定的，我按不确定写的：Private Sub Command1_Click()a = Len(Text1.Text)b = Len(Text2.Text)c = Len(Text3.Text)Randomize d = Int(Rnd * (a - 1)) + 1 e = Int(Rnd * (b - 1)) + 1 f = Int(Rnd * (c - 1)) + 1 ...
    vb text提取数字问题答：Private Sub Command1_Click() Dim s As String Dim tmp As String Dim i As Long s = Text5.Text While Len(s) If Not IsNumeric(Mid(s, 1, 1)) Then s = Mid(s, 2) Else tmp = Mid(Val(1 & s), 2) s = Replace(s, tmp, "", 1, 1) ...
    在VB中,怎么用MID函数,抓取文本框中的数据答：在Visual Basic中，使用MID函数可以从文本框中提取特定字符。假设文本框名为Text1，你可以通过如下步骤实现。首先定义一个数组a，用来存储提取的字符。这里有一个示例代码：Dim a(0 To 100) As String, i, j As Long。接下来，使用一个循环来逐个读取文本框中的字符，具体代码如下：For i = 1 To...
    vb 如何text 提取括号()内的数字,每串数字提取后换行答：text1.text 提取括号（）内的数字，每串数字提取后换行，输出文本文件 copy.txt。dim a() as string=text1.text.Split("(")dim i as int for i=0 to i0 then copy.txt &= a(i).left(j) & vbcrlf end if next
    vb中 如何用cmd把一个text中的数字读出来呢答：CInt、CLng、Fix 和 Int 函数截取整数部分。CInt、CLng 四舍五入小数部分。Fix、Int 舍去小数部分，不同之处是对负数的处理。
    vb6.0 提取text1最后一行字符的后几个字符(前面几个字符不要)_百度知 ...答：具体代码如下：Private Sub Form_Click()Dim s() As String, LastLine As String s = Split(Text1.Text, vbCrLf)LastLine = s(UBound(s))'最后一行 MsgBox Right(LastLine, 5)'最后一行后5个字符 End Sub 此代码片段适用于需要从多行文本中提取特定位置字符的场景。例如，如果文本框中包含多...
    Vb文本框实时字符串提取数字,提取时输入,拆分字符回车符答：接下来，遍历拆分后的字符串数组，对每行内容进行处理。代码中定义了一个名为 GetNum 的函数，用于获取字符串中的数字部分。通过循环遍历字符串的每个字符，判断其是否为数字。如果是数字，则将其提取出来并存储。以下是简化后的代码段，用于实现上述功能：vbnet Private Sub Text1_Change(sender As ...
    VB 怎么读取TXT数据 第一行显示在TEXT1 第二行显示在TEXT2答：Text1.Text = ""Text2.Text = ""If fso.FileExists("c:\abc.txt") Then '判断文件是否存在 Dim sum_row As Integer sum_row = 1 Open "c:\abc.txt" For Input As #7 Line Input #7, first_row '按行读取 Text1.Text = first_row Do While Not EOF(7)Line Input #7, next...
    大家正在搜
    VB读取文件在循环读取时再循环VB读取的文件如何指定字符所在行vb读取txt文件 到数组VB如何读取顺序文件第二行数据VB读取232数据做图自动读取图片数字c语言从文本读取数字VB读取DXF并显示VB按行读取文件
    相关问题
    vb中读取文本框中输入的数字
    如何使用VB把txt文件中的数字一个个读取出来
    怎么一行一行的读取vb中text.1的文件
    vb如何读取textbox里的数字中的一个
    VB怎样写才能每次读取一个TXT文本里的数字？
    VB中如何读取text多行的数值？
    VB中如何从一段话中提取数字？
    VB中text里面的数据怎么读出