ASP 字符串去掉首尾字符

Question

大家给个函数或是代码呗.
要实现在的功能就是,数据库中的字段内容是:
{内容.....|080117 admin}我想去掉首尾的{}
或是说删除|080117 admin}对"|"这个符号进行判断,删除他以后的字符串生成一个新的字符串.

哪位大侠帮我一下.

实现后再加分.
我详细说一下我要实现的功能.
就是说这个输入项会有好几个用户来输入.
{内容...|080117 admin}存的是更新的内容,更新日期,更新的用户ID
但如果是两个人的话,这个输入项里就要显示成这样
{内容...|080117 user}
也就是说这个字段存的是{内容...|080117 admin}{内容...|080117 user}
到时候在前台显示出来.
点更改的时候输入框里的内容是{内容...|080117 admin}{内容...|080117 user}
如果是admin又在后面输入内容的话,那么要实现的是{内容+更新|080117 admin}
不知道怎么能实现这样的功能呢,帮帮忙呗.

Answer 1

这个很简单，我来帮你搞定。
假设这个变量为str，它的值就是{内容.....|080117 admin}
那么，我们可以采用如下手段来去掉首尾字符：
dim strlen
strlen=0
strlen=len(trim(str))
str=left(trim(str),(strlen-1))
str=right(trim(str),(strlen-2))
response.write "现在你所需要的内容就是：" & str
那么我们理论上就输出了我们所需要的内容。它的原理是这样的，先求出它的长度，然后从左往右取它的长度减一的字符串将最右边的一个字符去掉。然后，我们再从右往左取它的长度减2位，就去掉了最左边的字符串。

-------------------------------
删除|080117 admin}对"|"这个符号进行判断,删除他以后的字符串生成一个新的字符串.的方法如下：
dim i
dim str
str="内容"
dim objstr
for i=1 to len(trim(str))
if mid(trim(str),i,1)="|" then
exit for
else
objstr=objstr&mid(trim(str),i,1)
end if

next
response.write "你去掉|后的字符串，得到的新的字符串为：" & objstr
-------------------------
如果你想既去掉左右两边的，再去掉|后的字符串，那么你就先执行第一段代码，然后再稍微修改一下第二段代码的变量声明及赋值就可以了。做成函数更简单，懒得给你定义了，自己搞吧，那就超简单了。

----------------------------------------
亲爱的朋友，我已经将详细介绍私人信息发给你了，请注意查看。

Answer 2

我说三种可能

第一：你要删除字符串的| 生成新的字符 可以用Replace函数

第二：删除首位末尾空格 就在变量前面加个trim

第三：你要删除首位末尾任何的字符 不仅仅是空格的话 就用
right(lift(str,len(str)-1),len(lift(str,len(str)-1)))这种

呵呵 至于代码 我不喜欢给别人写现成的 我只说方法 那样对于
我们做程序的才有帮助~~

希望可以帮助到你~~~

Answer 3

right(lift(str,len(str)-1),len(lift(str,len(str)-1)))

Answer 4

送你一个函数好了
你数据库多建两个字段不就没这么麻烦了嘛~~ 唉

'-----------------------------------------------------------------  
Dim strUsername
Dim strData
Dim strContent

'假设 strData 里面的数据是从数据库相应的字段取出来的
strData = "{内容...|080117 admin}{内容...|080117 user}{内容...|080117 user2}"
strUsername = "admin"
strContent = "新内容，新内容"    

strData = update_data(strData, strUsername, strContent, false)   
 
'-----------------------------------------------------------------  

'====================================================================================
'   函数需要四个参数
'           strData:     原始字符串，直接从数据库取出。 若没有数据，可以为空
'           strUsername: 用户名，更新哪个用户的数据
'           strContent:  内容
'           fReplace:    若这个参数为true, 则替换原来的内容为新内容，否则是追加内容
'   
'   函数返回组合好的字符串，可以直接插入数据库中
'====================================================================================
Function update_data(strData, strUsername, strContent, fReplace)
    Dim strDate, arrData
    Dim i, j, flag

    strDate = FormatDateTime(date,0)
    arrData = Split("}" + strData + "{","}{")
    strContent = Replace(strContent,"|","‖")
    flag = False
    
    For i=0 To UBound(arrData)
        If Len(arrData(i))>0 And InStr(arrData(i),"|")>0 Then 
            arrData(i) = Split(arrData(i),"|") 
            If UBound(arrData(i))=1 Then 
                arrData(i)(1) = Split(arrData(i)(1)," ")
                If arrData(i)(1)(1)=strUsername Then 
                    If fReplace Then 
                        arrData(i)(0) = strContent
                    Else 
                        arrData(i)(0) = arrData(i)(0) + strContent
                    End If                  
                    arrData(i)(1)(0) = strDate
                    flag = true
                End If                      
            End If                  
        End If              
    Next 

    strData = ""
    For i=0 To UBound(arrData)
         If TypeName(arrData(i))="Variant()" Then                    
            strData = strData + "{" + arrData(i)(0) + "|" + arrData(i)(1)(0) + " " + arrData(i)(1)(1) + "}"
         End If 
    Next
    If Not flag Then 
        strData = strData + "{" + strContent + "|" + strDate + " " + strUsername + "}"
    End If 
    
    update_data = strData
End Function