[VB基础VB字符串操作方法]1.方法：SubStr() 中文化取子字串，相对Mid()Strlen() 中文化字串长度，相对Len()StrLeft() 中文化取左字串，相对Left()StrRight() 中文化取右字串，相对Right()isChinese() 检...+阅读
没有VB，在Excel的VBA中调试，效果一样：
Sub aaa()
ss = ＂strCopy(strFind(＂＂Dfjdlsi*#kkkslfjirjls51&fsqf＂＂))alksdfjk＂＂11111111＂＂sdfsdf＂
p1 = InStr(ss, ＂＂＂＂)
Do While p1 > 0
p2 = InStr(p1 + 1, ss, ＂＂＂＂)
If p2 = 0 Then Exit Do
s = Mid(ss, p1 + 1, p2 - p1 - 1) '这就是你要截取的字符串，你可以随意对其操作
Debug.Print s
p1 = InStr(p2 + 1, ss, ＂＂＂＂)
Loop
End Sub
VB如何这样截取字符串
不难。 假定
1、你开始说的：\picw...\和\pich...\里面的省略号和pich=...|||pich=...|||pich=...*||*picw=...|||picw=...|||picw=... 里面的省略代表的都是例如\picw740中的740。
2、picw和pich后数字字符照样作为你的省略号输出，直到下一个\。
3、结果不按原顺序排列，也不指定顺序。
4、输出字符串使用界面输入，输出到窗体。 代码如下： Private Sub Command1_Click() Dim s As String, s1 As String, s2 As String, s3 As String Dim i As Integer, j As Integer s = InputBox（＂请输出你的那个长长的字符串：＂） s1 = ＂\picw＂ s2 = ＂\pich＂ i = InStr(1, s, s1) Do While i >0 j = InStr(i + 1, s, ＂\＂) If j = 0 Then j = Len(s) + 1 s3 = s3 & s1 & ＂=＂ & Mid(s, i + 5, j - i - 5) & ＂|||＂ i = InStr(j, s, s1) Loop If Len(s3) >0 Then s3 = Left(s3, Len(s3) - 3) & ＂*||*＂ Else s3 = ＂*||*＂ End If i = InStr(1, s, s2) Do While i >0 j = InStr(i + 1, s, ＂\＂) If j = 0 Then j = Len(s) + 1 s3 = s3 & s2 & ＂=＂ & Mid(s, i + 5, j - i - 5) & ＂|||＂ i = InStr(j, s, s2) Loop s3 = Left(s3, Len(s3) - 3) Print s3 End Sub 最后告诉你个秘密，问题要说清楚。不要让别人做过多的“假定”！不然别人麻烦，你也不一定省事。
vb如何截取指定引号内的字符
空格个数固定不？不固定的话 可以使用正则表达式
Dim zstr As String, regex As Object, ms As Object, t As String
zstr = ＂help ＂＂sdiahsdoashdoiahdosihdqweqweoa＂＂＂
Set regex = CreateObject(＂vbscript.regexp＂)
regex.Global = True
regex.IgnoreCase = True
regex.Pattern = ＂help＂ & Chr(32) & ＂*＂＂(.*)＂＂＂
If regex.Test(zstr) Then
Set ms = regex.Execute(zstr)
t = ms(0).Submatches(0)
End If
MsgBox ＂原始字符串：＂ & zstr & vbCrLf &； ＂截取后的字符串：＂ & t
以下为关联文档：
VB中对字符串的处理及其扩展众所周知，VB提供了许多对字符串进行常用操作的函数，像Left、Right、Trim、Mid、Len和InStr等等，能够满足大部分的应用；但对于一些特殊的用法,比如C＋＋中的strrev函数，即将字符串顺序...
WinAPI字符及字符串函数1:CharLower字符或字符串转小写unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TBu...
WinAPI字符及字符串函数3:CharUpper字符或字符串转大写interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button...
WinAPI字符及字符串函数10:lstrcpy复制字符串interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button...
从sql表里截取字符串中的日期Select SUBSTRING(text,CHARINDEX('between',text)+9 ,10) from test SUBSTRING ( character_expression , start , length ) 函数说明：SUBSTRING （ '源字符串' ， '截取起始位...
请教截取EXCEL字符B1=MID(A1,4,1)&MID(A1,6,1)&MID(A1,9,1) 说明，A1单元格有F3402/3405 MID(A1,4,1)意思就是在A1单元格里，从第四个字符开始，取1个字符 &意思把前后二个函数的结果连在一起。 MID...
请教VB6字符串如何转化为16进制BYTE数组VB字符串可通过使用StrConv 函数，将字符串由 Unicode 转成系统的缺省码页后，再获取每个字节的十六进制字符后拼接起来。 StrConv 函数，返回按指定类型转换的 Variant (String)...
java截取指定字符串的问题例如 2000年1月31日如何截取年package com.openv.spring; public class FileHelloStr { public static void main(String args[]) { String a=＂2000年1月31日＂； String b =＂＂; for(int i=0;i<=a.length();i++)...
asp如何精确截取字符串楼上两位的方法有些不当，你可试试用上面的方法把这下面结果输出一下： LeftB（＂你们a好＂，4） 结果：＂你们＂ LeftB（＂你们a好＂，5） 结果：＂你们a＂ LeftB（＂你们a好＂，6） 结果：＂你们a＂ LeftB（＂你们a好＂，7） 结果：＂你们a}＂ L...
