VB 截取数据

有一遍文章,我只知道文章中有一个唯一值如:“上帝”,但是我想获到上帝前面的一段文字如何获取?
如:大家好,哦我的上帝呀!
我想从逗号后面开始获取,直到上帝停止,也就是我想获取:“哦我的”
应该如何操作呢?
上帝前面不是固定值,是动态的,不一定我只是一个例子!

S="大家好,哦我的上帝呀!"
Print Split(S,"上帝")(0)

是不是你想要的呢?
我只要:获取到豆号后面的数据!

这样就可以了。不管前面有多少。都能准确定位~

楼主我的代码就可以~怎么还不给分呢?你有没有测试一下啊

文章中有好多个豆号的。。。

Private Sub Form_Load()
Show
s = "dfsa大家好,哦我的上帝呀"
a = InStr(s, "上帝") '取上帝在字符中的位置
b = Left(s, a)
c = InStrRev(b, ",") '取逗号在字符串最后出现的位置
d = Mid(b, c + 1, a - c - 1)
Print d
End Sub

这样就可以了。不管前面有多少。都能准确定位~

楼主我的代码就可以~怎么还不给分呢?你有没有测试一下啊

我知道你文章前有很多逗号。我只取最后一个逗号 到 关键字(上帝)这区间里的内容
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-03-09
用INSTR找到上帝的位置
再用 right
left
或mid看情况使用就行了
第2个回答  2009-03-09
S="大家好,哦我的上帝呀!"
Print Split(S,"上帝")(0)

是不是你想要的呢?
第3个回答  2009-03-09
easy
用INSTR()函数就可以拉

VB截取里面的数据
可用Split函数来获取:Private Sub Command1_Click() Dim strSj As String Dim strFg As Variant Dim i As Long strSj = "1,6808,123" strFg = Split(strSj, ",", -1) Debug.Print strFg(0) Debug.Print strFg(1) Debug.Print strFg(2)End SubSplit函数 描...

VB数据的截取
用a=split(text1,",")分割开。但是因为第一个字符是逗号,故而a(0)="",a(1)=2 也就是编号要逐个往后退1!

vb中如何从一个数组中截取指定长度的数据?
你先把它转为字符串,处理起来就简单了。 用 Split 函数分割。

VB 截取数据
Private Sub Form_Load()Show s = "dfsa大家好,哦我的上帝呀"a = InStr(s, "上帝") '取上帝在字符中的位置 b = Left(s, a)c = InStrRev(b, ",") '取逗号在字符串最后出现的位置 d = Mid(b, c + 1, a - c - 1)Print d End Sub 这样就可以了。不管前面有多少。都能准确...

vb里的fix是什么意思
在VB中,Fix是一个函数,它的作用是将指定的值截取成整数。具体来说,如果传入的参数是一个小数,Fix函数会将其截取成离它最近的整数,且结果的符号和原来的符号一致。如果参数是整数,则不做任何处理直接返回。Fix函数在VB编程中常用于数据处理和类型转换。例如,在某些场景下,我们需要将小数转换成...

vb 如何截取字节 ,long的前三个字节
1 已知Long型 直接获取前3字节 Msgbox &HAABBCCDD And &H00FFFFFF &HAABBCCDD处为你的Long型变量或常量 例如:Dim a as long:a = &H11223344 msgbox "0x11223344在内存中前3个字节为: 0x" & hex(a and &H00ffffff)数字高位对应内存高位 因此截16进制下右侧6位。2.通过复制内存实现(慢...

vb字符串截取,怎么样让将一组数按照规律分组然后截取
Dim a() As String a = Split(S, "1221")通过上述命令,获得这样的数组:a(1) = "6987979"a(2) = "809890"a(3) = "808980"a(4) = "..."

如何用VB截取资料
用instr()函数查找你要查找的字符串位置,再用mid()函数截取你所需的子串内容。

VB中如何用空格截取字符串,获得某一位置的数值
最好用Split函数分割 Private Sub Form_Click() Text1 = "1 23 4343535 先找空格的位置再用midstr(好像是)截取 mid(变量,起始字符,结束字符

怎么用VB截取多行字符串?
text2.text=split(text1.text,vbcrlf)(1) '输出第二项 text2.text=split(text1.text,vbcrlf)(2) '输出第3项 其中vbcrlf是回车换行符 split()函数是把字符串转换为数组,vbcrlf是分隔符。

相似回答
大家正在搜