VB 字符串

Dim strA(2) as string
Dim str as string
Dim strResult as string

str = "ip:***.***.***.*** Computer:@@@@@@ Ram:&&&&&&"

strA = split(str ," Computer:")
str = strA(1)
strA = split(str ," Ram")
strResult = strA(0)

dim s as string

s="ip:***.***.***.*** Computer:@@@@@@ Ram:&&&&&&"
s=split(s,"Computer:")(1)
s=trim(mid(s,1,instr(s,"Ram")-1))
msgbox s

可以通过Instr判断Computer:的位置来确定@@@@@出现的位置，然后可以用mid获取@@@@@的值
dim str:str="ip:***.***.***.*** Computer:@@@@@@ Ram:&&&&&&"
dim start:start=Instr(str,"Computer:")+Len("Computer:")
dim res:res=mid(str,start,Len("@@@@@"))

Computer 后边 加 1 位

Dim a As String
Dim i As String

a = "ip:221.220.100.98 Computer:@@@@@@ Ram:&&&&&&"

i = InStr(1, a, "Computer") + 9

i 就是 第一个 @ 的位置

此时你只要