str1=left(str,len(str)-10)-------------除后面10个字符外前面的所有字符
str2=right(str,9)-----------后面9个字符
str=str1 & "-" & str2
Str="12345678 F DDDD 2008-11-16 00:45:42"
i=instrrev(Str," ")
str=left(Str,i-1) & "-" & mid(Str,i+1)本回答被提问者采纳
vb字符串全字匹配替换
dim str1,str2 as string str1=left(str,len(str)-10)---除后面10个字符外前面的所有字符 str2=right(str,9)---后面9个字符 str=str1 & "-" & str2
怎么用vb把字符串中的 " 全部替换成 ' ?
用replace函数 如下：Dim s As String Dim s2 As String s = "123""456""789"Debug.Print s s2 = Replace(s, """, "'")Debug.Print s2
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("...
VB6.0中如何实现替换(文本)功能,全部替换(文本)功能?
replacewith 必需的。用来替换的子字符串。start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。count 可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。compare 可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置...
VBA学习笔记35-2:字符串查找替换与转换
首先，介绍了两个查找函数：instr和InStrRev。instr从左到右查找字符，返回大于0的值表示找到，而InStrRev则是从右到左查找，查找方向相反。接着，Replace函数用于替换字符串中的特定字符，而mid则用于根据起始位置和长度截取字符串。字符转换方面，Trim, Ltrim, 和 Rtrim用于移除字符串两端或单端的空格。ASC...
vb .net里的 查找替换功能里 ,我想把List 替换替换成fList List是单独...
变通的方法：首先 把List 替换为一个其他的字符串如OOO,要全字匹配替换。然后替换List为fList,然后再把OOO替换为List。
我想用VB实现同时替换多个字符串,注意是数万个字符批量替换! 使用repl...
说到替换可能首先想到的就是replac，如果用这个函数，我的思路是要声明3个数组：源字符串数组，替换字符串数组，关键字数组...前二个数组楼主应该已经是有了，还要声明一个关键字数组，下标与前进二个数组等长，这个数组元素的原则就是字符+不重复的的数字，并保证其在原文章中不存在...先按源字符串...
VB 文本指定行字符串的替代
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(2,2)="12":m(3,1)="10" '可以根据你想替换的内容进行修改 for i=1 to 3 for j=1 to 3 if j=...
VB用一个字符串中某一位置的字符替换另一字符串中某一位置的字符该怎么...
VB上输入 Mid()会出现提示：Mid(string, start as long, [length])我们上课时讲的是：Mid是一个字符串函数，即它的返回值是一个字符串 Mid(x, n1, n2)意为从字符串x左起第n1个字符起取n2个字符 x即为string，start as long的意思是从左起第n1个字符取起，n1的类型为long 举个例子 Privat...
vb输入一行字符串,将其中的非字母字符剔除,然后将字母全部转换为大写...
dDim intCount As integer Dim strInput1,strInput2 as string strInput1= textBox1.text If Not IsNumeric Then strInput2=strInput1.ToUpper()intCount=stringInput.length()End If Label1.text(Caption)= strInput2 & intCount.ToString()但愿我没理解错，呵呵 ...
