在textarea 这里写入多组数据:
列如
160484123766752
260484062762348
365124062766758
460484001466751
写入数据库都会有空格变成:160484123766752|| 1604841237667||52 36512406276||6758 460484001||466751 ||
我的代码是:
<textarea name="beizhu2" cols="50" rows="4" style="font-size:15px;color:green;"></textarea>
<%
nowbeizhu2=request("beizhu2")
...........
Dim s,strData
s = Replace(nowbeizhu2,"","") '字符串
strData = ""
For i = 1 To Len(s) Step 15
strData = strData & Mid(s, i, 15) & "||"
Next
.........
rs("beizhu")=strData '写入库
.........
%>
执行后是:160484123766752|| 1604841237667||52 36512406276||6758 460484001||466751 ||
有多个空格,随着组数越多,后面都是错误的。。
现要求执行后是:160484123766752||260484062762348||365124062766758||460484001466751||
随着组数越多,后面都是错误的。经过测试是 textarea 自动回车存入原因。
我是用:nowbeizhu2=request("beizhu2") '取textarea 的内容
s = Replace(nowbeizhu2,"","") '字符串
问题: 这样子就还会有空格换行,怎么才能取得纯粹内容,,不需要空格和换行。请指教指教小 弟。
回答不易,求求您采纳点赞哦
Dim strData: strData = "160484123766752 260484062762348 365124062766758 460484001466751"
Dim arr: arr = split(strData, " ")
For i = 0 To Ubound(arr)
If len(arr(i)) = 15 Then
arr = Array.Insert(arr, i+1, "||")
End If
Next
strData = Join(arr, "")
Response.Write(strData)