代码比较复杂啊!汉字的引号有左右之分。想想....
--------------------------------------------------------------------
Made by Thirdapple's Studio
--------------------------------------------------------------------
Made by Thirdapple's Studio
解决方案 »
- 在用vb访问Vf数据库时,出现如下错误
- 将DataGrid中的内容导入到Excel中出现的问题
- 已经编译好的exe程序里,我想修改界面上某些字,有没有办法修改?
- ██ 我是参加评比活动中唯一来自CSDN的,请大家支持 ██
- 如何在98/2000/XP下判断计算机是否在网上
- 主菜单的字体怎么修改?
- 急急急!!!高手请进!vb中删除sql server中表的记录出了问题!!!
- 急!!急!!急!!急!!大虾们帮帮忙,“远程访问”简单!!!
- 程序运行后,改变屏幕的分辨率后,比如改小,则程序窗体有部分到屏幕外边了,如何在改变分辨率的时候,让程序的窗体大小也跟着改变?
- 如何将EXE 文件中的图标提取出来形成 ICO 文件 (用VB)?
- 请问 VB 中的 MSFlexGrid 控件的 DataSource 属性如何用法 ?
- MSFlexGrid控件上由若干行,我用鼠标选取一行,怎样得知"选取行"为第几行.
描述返回一个字符串,该字符串中指定的子字符串已被替换成另一子字符串,并且替换发生的次数也是指定的。语法Replace(expression, find, replacewith[, start[, count[, compare]]])Replace函数语法有如下几部分:部分 描述
expression 必需的。字符串表达式,包含要替换的子字符串。
find 必需的。要搜索到的子字符串。
replacewith 必需的。用来替换的子字符串。
start 可选的。在表达式中子字符串搜索的开始位置。如果忽略,假定从1开始。
count 可选的。子字符串进行替换的次数。如果忽略,缺省值是 –1,它表明进行所有可能的替换。
compare 可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。
设置值compare参数的设置值如下:常数 值 描述
vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
返回值Replace的返回值如下:如果 Replace返回值
expression长度为零 零长度字符串("")。
expression为Null 一个错误。
find长度为零 expression的复本。
replacewith长度为零 expression的复本,其中删除了所有出现的find 的字符串。
start > Len(expression) 长度为零的字符串。
count is 0 expression.的复本。
说明Replace函数的返回值是一个字符串,但是,其中从start所指定的位置开始,到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。
dim i as integer
do while instr(str,"'")
if i mod 2 then
str=mid(str,1,instr(str,"'")-1) & "“" & mid(str,instr(str,"'")+1)
else
str=mid(str,1,instr(str,"'")-1) & "”" & mid(str,instr(str,"'")+1)
end ifloopEnd function
MsgBox trans("a""b""c""d""e")
End SubFunction trans(str)
arr = Split(str, """")
ret = arr(0)
tmp = Split("”,“", ",")
For i = 1 To UBound(arr)
ret = ret & tmp(i Mod 2) & arr(i)
Next
trans = ret
End Function
dim i as integer
do while instr(str,"'")
if i mod 2 then
str=mid(str,1,instr(str,"""")-1) & "“" & mid(str,instr(str,"""")+1)
else
str=mid(str,1,instr(str,"""")-1) & "”" & mid(str,instr(str,"""")+1)
end if
i=i+1
loopEnd functionvb中:两个'"',代表一个'"'
你的代码是错误的。to qiushuiwuhen(秋水无恨) :
你的代码也是错误的。