比如我的text里面:
01 12 13 T 05
05 26 14 T 26
03 34 35 T 06
先把排序倒过来再提取T后面的数,就是最后一行倒过来再第一行,提取T后面的数后不要每个数都换行,有空格隔开就好了,不要教我方法,直接代码来就好,多谢
s=t(ubound(t)) & " " & s '将T后面的数字(字符串)添加到结果中
下标越界
vb提取每行的最后两个数字和排序
Dim TextLine AS string, S as string Open "TESTFILE " For Input As #1 ' 打开文件。N=1 Do While Not EOF(1) ' 循环至文件尾。Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。t=split(textline,"T") ‘以T来分开到数组中 ...
VB逐行取最后两位
Open FileName For Input As #1 \\' 打开文件。Do While Not EOF(1) \\' 循环至文件尾。Line Input #1, TextLine \\' 读入一行数据并将其赋予某变量。if len(textline)>1 then Debug.Print right(TextLine,2) \\' 在立即窗口中显示数据。也可以显示到其他地方 end if Loop Close ...
vb 如何text 提取括号()内的数字,每串数字提取后换行
用Split函数将这个字符串分解成数组,再对数组的每个元素用SubString或Right函数来提取你要的那部分就OK了。
VB或批处理提取字符串
echo offcd\/d "f:\\"for \/f "delims=" %%i in (1.txt)do ( set "h=%%i" setlocal enabledelayedexpansion echo.!h:~-2!>>2.txt call echo.!h:~-5,2!>>3.txt endlocal)
用vb求数组每行的和并显示在文本框中怎么做啊?我做了之后只显示一行的和...
Int(Rnd * 90) + 10 Text1.Text = Text1.Text & a(i, j) & Space(1)'Space(1)为用空格区分每个数字,也可以改为","等其它分隔符 Next Text1.Text = Text1.Text & vbCrLf 'vbCrLf表示换行 Next '---以上为对这个5行5列数组赋值并显示出来--- End Sub ...
vb截取每行前三个字符串字符串
vbCrLf) - 1)S = Mid$(S, InStr(S, vbCrLf) + 2)Else tS = S S = ""End If ttS = ttS & "ddddddd" & Mid$(tS, 5) & vbCrLf Loop S = ttS 如果是每行添加字符串则把倒数第3行换成 ttS = ttS & "bb" & tS & vbCrLf 注意,不论输入时最后有没有换行,输出时都有 ...
如何用VB批量修改TXT文件每行的数字(数字都在每行的最后)?
Dim MyStr As String Dim LStr As String Dim L As Integer '一边读取原文件信息,一边处理信息 '读取一行,去掉等号右边原数字,加入新数字 MyStr = ""Open App.Path & "\\result.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 Line Input #1, ...
Vb文本框实时字符串提取数字,提取时输入,拆分字符回车符
接下来,遍历拆分后的字符串数组,对每行内容进行处理。代码中定义了一个名为 GetNum 的函数,用于获取字符串中的数字部分。通过循环遍历字符串的每个字符,判断其是否为数字。如果是数字,则将其提取出来并存储。以下是简化后的代码段,用于实现上述功能:vbnet Private Sub Text1_Change(sender As ...
vb中怎样实现每行固定有几个数,然后换行功能?
先对输入的数据进行计数处理比如说\\x0d\\x0afor i=1 to20\\x0d\\x0atext1=text1 & str(i)\\x0d\\x0aj=j+1 '对输入的数据计数\\x0d\\x0aif jmod 5=0 then ‘判断每行是否达到5个\\x0d\\x0atext1=text1 & vbcrlf '换行\\x0d\\x0aend if ...
VB高手进,如果提取TEXT1中第几行第几个字符之后的几个字符串
使用API最好,速度快,不过具体代码没现成的。如果你每行都有一个回车换行符的话(也就是说没有自动换行),那可以使用以下方法:Public Function QuZiFu(strText As TextBox, i As Long, j As Long, k As Long) As String Dim tmp As Variant tmp = Split(strText.Text, vbCrLf)QuZiFu = ...