如下：
Dim s As String
Dim s2 As String
s = "123""456""789"
Debug.Print s
s2 = Replace(s, """", "'")
Debug.Print s2
怎么用vb把字符串中的 " 全部替换成 ' ?
用replace函数 如下：Dim s As String Dim s2 As String s = "123""456""789"Debug.Print s s2 = Replace(s, """, "'")Debug.Print s2
vb中如何编写全部替换功能?
Private Sub Command1_Click() t1 = "34556289528222465289734256486" t2 = Replace(t1, "6", "1") Print t2End Subt2就是替换好的字符串
VB6.0中如何实现替换(文本)功能,全部替换(文本)功能?
start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。count 可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。compare 可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。设置值 compare参数的设置值如下...
vb字符串全字匹配替换
str1=left(str,len(str)-10)---除后面10个字符外前面的所有字符 str2=right(str,9)---后面9个字符 str=str1 & "-" & str2
VB替换字符串中的“”求指导
Private Sub Command1_Click()Dim a, b As String a = "444555"""b = VBA.Strings.Replace(a, """, "&")MsgBox b End Sub
vb中我要把一个字符串中所有的回车符换成自动增加的序号,怎么做
以回车符[或叫换行符"Chr(13)"]分割字符串 既忽略了换行，又加上了序号 但是之后需要不需要换行显示就看你要不要了 Dim str as String() = Split("字符串"，Chr(13))For i = 0 to UBound(Str) '这里要不要+1或-1就看你具体情况了 Str(i)=Str(i) & i ’需要换行显示就加上 & ...
vb查询字符串并替换
查找字符串的函数是 instr，替换字符串的函数是replace，用法：instr(n , S1 , S2) 在字符串S1中，从左边第n个字符向后搜索S2第一次出现的位置，例如 i = instr ( 3, "abcbcbc", "b" )，此时 i = 4 replace（s,s1,s2) 在字符串s中搜索s1，如果搜索到就将s1替换成s2，例如 replace("...
VB 文本指定行字符串的替代
'用VBS写的，做个参考吧！dim m(3,3) '要根据内容所定 set fso=createobject("scripting.filesystemobject")set file=fso.opentextfile("1.txt")while file.atendofstream<>true h=h+1 n=file.readline:s=split(n):l=ubound(s)for i=0 to l m(h,i+1)=s(i)next wend file.close m(...
vb文件内字符串替换
dim r as string open "c:\\1.txt" for input as #1 '打开你的文件 open "c:\\2.txt" for output as #2 '打开一个临时文件 do while not eof(1)line input #1,r '读取一行 if instr(r,"53513")<>0 then r=replace(r,"53513",text2.text)end if print #2,r loop close kill ...
我想用VB实现同时替换多个字符串,注意是数万个字符批量替换! 使用repl...
..先按源字符串数组中元素的长度排序，这是为了保证长字符串先替换，短字符串后替换，避免重复和遗漏替换...先循环数组将源字符串全部替换成对应的关键字，再循环将关键字替换成要替换字符串...看起来这个方法效率不是很高，但要高效的方法不简单...一时也想不出 ...
