ASP 篩選字串中的某些字元

迴圈讀取，每行都放在乙個陣列中。

s="[歌曲：月光小夜曲。"

s=left(s,5)&right(s,len(s)-8)s

以第 789 個字元為例。

s=left(s,9)

s=right(s,3)

替換為 empty。 ss=replace(ss,s,"")ss

這一段應該沒問題吧？ 可以結合讀取檔案，確定 vbcrlf 的位置，然後迴圈遍歷 vbcrlf 或 while 的個數，就可以滿足要求了。

如果背部是固定的，它們就是。 00 這很容易做到，如果沒有，我想我將不得不使用常規程式碼。

固定是。 00的解決方案是：

您已將這些值分配給 s，我將根據 s 編寫它們。

str = replace(s,".00]","]"str 試一試。

我沒有放的原因。 00 變成空是因為我記得有一首歌是秒的，呵呵，我怕以後會有秒什麼的。

補充一點，不要問我常規方法，我不熟悉它。

reg = new regexp

\[(d\]"

s = ,"[$1]")

哪裡。。d 是3 位數字。

1. 在第一對 （） 中匹配的東西。

把 [ ...匹配項將替換為 None3 位數字。

如果不包括在內。 3 位資料將不匹配。

s0 = ""

for i = 1 to len(s)

if mid(s, i, 1) = "[" thens0 = s0 & mid(s, i, 6) &"]"

i = i + 9

elses0 = s0 & mid(s, i, 1)end if

nexts = s0

如果歌詞沒有[，就這樣寫。

我寫了乙個這樣的函式：

function keywordaddlink(byval strtext,byval strreplace)

dim re,s,i,strkey,strsubkeyset re = new regexp

true true

s = strtext

strkey = split(strreplace,"||")for i = 0 to ubound(strkey)if strkey(i) <"" thenstrsubkey = split(strkey(i),">>")if strsubkey(0) <"" then= "(^|/\\\w\=])(" & strsubkey(0) &")"

s=, "$1發動機。

那麼，需要有乙個提交頁面。

b="b")

&b&""str = 文章內容。

str = replace（str，b，c）%>ok。

<%reviews=replace_text("reviews"))

reviews=replace(reviews,"<","[")

reviews=replace(reviews,">","]")

newsid=replace_text("newsid"))

ip="ip")

rname=replace_text("rname"))

rname=replace(rname,"<","[")

rname=replace(rname,">","]")

username=replace_text("username"))

username=replace(username,"<","[")

username=replace(username,">","]")

處理已發布的內容是褻瀆。

set rs="")

sql="select * from badword"

sql,conn,3,3

if then

err!")

elseon error resume next

do while not and not

reviews=replace(reviews,"word").value,"**")

rname=replace(rname,"word").value,"**")

loopend if

set rs=nothing

set rs="")

sql="select * from pl"

sql,conn,3,3

rs("reviews")=reviews

rs("newsid")=newsid

rs("ip")=ip

rs("rname")=rname

rs("username")=username

<%set rsn="")

sqln,conn,1,3

rsn("plnum")=rsn("plnum")+1

rsn("plbz")=1

這兩個函式乙個用於刪除標誌，另乙個用於刪除標記：

function outhtml(str)dim stemp

stemp = str

outhtml = ""

if isnull(stemp) = true thenexit function

end if

stemp = replace(stemp, "&", "&")stemp = replace(stemp, "<", "<")stemp = replace(stemp, ">", ">")stemp = replace(stemp, chr(34), """)

stemp = replace(stemp, chr(10), "

outhtml = stemp

end function

function inhtml(str)

dim stemp

stemp = str

inhtml = ""

if isnull(stemp) = true thenexit function

end if

stemp = replace(stemp, "&", "&")stemp = replace(stemp, "<", "<")stemp = replace(stemp, ">", ">")stemp = replace(stemp, chr(34), """)

inhtml = stemp

end function

function deltag(str)

dim regex, strtmp

set regex = new regexpstrtmp = str

true true

刪除非法字元。

strtmp = ,"")

deltag= strtmp

end function

使用此函式嘗試使用字串。

instring 是需要過濾的字元。

replace(expression, find, replacewith[, compare[, count[, start]]]

表達是強制性的。 字串表示式包含要重寫的子字串。

replace替換為必需。 用於替換的子字串。

start 是可選的。 表示式，從這裡開始搜尋子字串。 如果省略，則預設值為 1。 當與計數關聯時，必須使用它。

count 是可選的。 執行的子字串替換數。 如果省略，則預設值為 -1，表示所有可能的替換。 當與 start 關聯時，必須使用它。

比較選項。 乙個數值，指示計算子字串時使用的比較型別。 有關數值，請參閱“設定”部分。 如果省略，則預設值為 0，這意味著必須進行二進位比較。

replace(newstr,"a","b"將 newstr 中的“a”替換為“b”。

chr（） 返回與指定的 ANSI 字元對應的字元。

CHR（60） 是"<"ANSI 字元**。

instring 是函式的引數。

您可以像這樣使用此功能：

dim username

username=filter_str("username"))

asp 是否過濾字串並保留英文字母（a-z 和 a-z）？

ori = "我有 1 只貓、2 隻狗、3 只兔子、4 只老虎和 5 只豬！我的家就像乙個動物園！"

for i = 1 to len(ori)

j = mid(ori,i,1)

if (j>=chr(65) and j<=chr(90)) or (j>=chr(97) and j<=chr(122)) then

txt = txt & j

elsedum = dum & j

end if

nexttxt & " " & dum

ori = 原始字串（我有 1 只貓、2 隻狗、3 只兔子、4 只老虎和 5 只豬！我的家就像乙個動物園！）

txt = 過濾字母 （catdogsrabbitstigerspigszoo）。

dum = 過濾後的非英文字母（我有 1、2、3、4 和 5！ 我的家！ ）

這就像匹配字母和數字一樣簡單。

嗯，我有辦法。 向您傳送乙個過濾功能（僅保留。 標記）。

function filterhtml(byval fstring)

if isnull(fstring) or trim(fstring)="" then

filterhtml=""

exit function

end if

fstring = replace(fstring, ", "[br]")

fstring = replace(fstring, ", "[br]")

篩選 HTML 標記。

dim re

set re = new regexp

fstring = , "")

set re=nothing

fstring = replace(fstring, "[br]", "

filterhtml = fstring

end function

把它放在第一位。 更換它，最後更換回來。

str=replace(str,","換行符號")str=replace(str,"<","")str=replace(str,">","") '

str=replace(str,"換行符號","

<%a="44hello456789hello"

a=split(a,"hello")

以 hello 為分數，將 a 分成多個部分，只取第一部分和第二部分，newa=a（lbound（a））&a（ubound（a））%）%。

樓下不對，房東想刪除兩個過濾器之間的字串。

如果你只是移除過濾器，你只是移除過濾器。 這是使用 newa=replace（a，"hello")