删除字符串的问题!各位高手帮忙

toptbl 2003-09-25 12:11:42
text1.text= 123456789#@0000000
如何删除在#@后面的所有字符包括#@
前面位数不一定是9位~~
这个要怎么做??谢谢
...全文
163 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
射天狼 2003-09-25
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click()
Dim strTmp As String

strTmp = "123456789#@0000000"
MsgBox Left(strTmp, InStr(strTmp, "#@") - 1)
End Sub
Garfield 2003-09-25
  • 打赏
  • 举报
回复
strVal = "123456789#@0000000"
text1.text = left(strval, instr(strval,"#@") -1)
netcar 2003-09-25
  • 打赏
  • 举报
回复
如果在你的程序中这样的处理不多的话,用Split分开取吧
northwolves 2003-09-25
  • 打赏
  • 举报
回复
Text2.text=split(Text1.text,"#@")(0)
rainstormmaster 2003-09-25
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim arr As Variant, strVal As String
strVal = "123456789#@0000000"
arr = Split(strVal, "@")
MsgBox arr(0)
End Sub
sword281 2003-09-25
  • 打赏
  • 举报
回复
该问题果是只出现一次#@就可以,但#@出现多次就只能保留第一个#@前的字符串
地狱余烬 2003-09-25
  • 打赏
  • 举报
回复
strVal = "123456789#@0000000"
text1.text = left(strval, instr(strval,"#@") -1)
gzqg 2003-09-25
  • 打赏
  • 举报
回复
都让人说了!
whf2003 2003-09-25
  • 打赏
  • 举报
回复
Dim Select_String as stirng '存储选取的字符串
Dim Select_Long as Long '存储选取字符串的的位置
Select_Long=instr(text1.text,"#@")-2
Select_String=left(text1.text,Select_Long)
demo001 2003-09-25
  • 打赏
  • 举报
回复
instr判断“#@”的位置

然后left取前面的字符串。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧