在VB６ 中我有一个字符串是这样的 "大连--沙河口--" 如何去掉后面的 "--"有这样的函数吗？

Question

在VB６ 中我有一个字符串是这样的 "大连--沙河口--"　如何去掉后面的 "--"有这样的函数吗？

Answer 1

replace("大连--沙河口--","--","")

Answer 2

如果只去掉后面，前面不去
strTemp="大连--沙河口--"
replace(strTemp,"--","",instr(strTemp,"--")+2)

Answer 3

用Replace函数
newstr = Replace("大连--沙河口--", "--", "")

Answer 4

    dim s as string
    s="大连--沙河口--"
    s=DropRightChar(s)
private function DropRightchar(byval s as string) as string
   if len(s)=0  then
      exit function
   end if     
   
   do until right(s,1)<>"-"
       s=left(s,len(s)-1)
   loop
   DropRightchar=send function

Answer 5

dim a as string,b as string
a="大连--沙河口--"　
b=left(a,len(a)-2)

Answer 6

dim s as string
s="大连--沙河口--"
s=mid(s,1,instrrev(s,"--")-1)
msgbox s

Answer 7

dim s as string
s="大连--沙河口--"
if right(s,2)="--" then s=mid(s,1,instrrev(s,"--")-1)
msgbox s

Answer 8

strTemp="大连--沙河口--" iif(right(strTemp,2)="--",left(strTemp,len(strTemp-2)),strTemp)

Answer 9

strTemp="大连--沙河口--" iif(right(strTemp,2)="--",left(strTemp,len(strTemp)-2),strTemp)