ASP中讓Replace 替換不區(qū)分大小寫

Actual Search and Replace(文件搜索)2.8.6 漢化綠色特別版

• 類型：搜索比較大小：398KB語(yǔ)言：中文 評(píng)分：5.0
• 標(biāo)簽：

立即下載

 默認(rèn)我們?cè)贏SP中用Replace的時(shí)候是會(huì)區(qū)分大小寫的，如何讓Replace不區(qū)分呢?

我們先來(lái)看一看 Replace 的詳細(xì)參數(shù)

描述
返回字符串，其中指定數(shù)目的某子字符串被替換為另一個(gè)子字符串。
語(yǔ)法
Replace(expression, find, replacewith[, compare[, count[, start]]])

Replace 函數(shù)的語(yǔ)法有以下參數(shù)：

參數(shù) 描述
expression 必選項(xiàng)。 字符串表達(dá)式 包含要替代的子字符串。
find 必選項(xiàng)。被搜索的子字符串。
replacewith 必選項(xiàng)。用于替換的子字符串。
start 可選項(xiàng)。expression 中開始搜索子字符串的位置。如果省略，默認(rèn)值為 1。在和count 關(guān)聯(lián)時(shí)必須用
count 可選項(xiàng)。執(zhí)行子字符串替換的數(shù)目。如果省略，默認(rèn)值為 -1，表示進(jìn)行所有可能的替換。在和 start 關(guān)聯(lián)時(shí)必須用。
compare 可選項(xiàng)。指示在計(jì)算子字符串時(shí)使用的比較類型的數(shù)值。有關(guān)數(shù)值，請(qǐng)參閱“設(shè)置”部分。如果省略,缺省值為 0 ,這意味著必須進(jìn)行二進(jìn)制比較。


設(shè)置
compare 參數(shù)可以有以下值：
常數(shù) 值 描述
vbBinaryCompare 0 執(zhí)行二進(jìn)制比較。
vbTextCompare 1 執(zhí)行文本比較。


返回值
Replace 返回以下值：
如果 Replace 返回
expression 為零長(zhǎng)度 零長(zhǎng)度字符串 ("")。
expression 為 Null 錯(cuò)誤。
find 為零長(zhǎng)度 expression 的副本。
replacewith 為零長(zhǎng)度 expression 的副本，其中刪除了所有由 find 參數(shù)指定的內(nèi)容。
start > Len(expression) 零長(zhǎng)度字符串。
count 為 0 expression 的副本。


說(shuō)明
Replace 函數(shù)的返回值是經(jīng)過(guò)替換（從由 start 指定的位置開始到 expression 字符串的結(jié)尾）后的字符串，而不是原始字符串從開始至結(jié)尾的副本。
下面的示例利用 Replace 函數(shù)返回字符串:

Dim MyString

MyString = Replace("XXpXXPXXp", "p", "Y") '二進(jìn)制比較從字符串左端開始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比較從第三個(gè)字符開始。返回 "YXXYXXY"。3，, -1, 1)

方法一： 直接用ASP自帶函數(shù)replace 這也是最簡(jiǎn)單的方法

title=replace(title,"DF","SD",1,-1,1)

replace函數(shù)參數(shù)詳解:
參數(shù)1：源字符串
參數(shù)2：要被替換的字符
參數(shù)3：新的字符。，既，要將源字符串中的某些字符，替換成新指定的字符
參數(shù)4：值為1.指定從第一個(gè)字符開始搜索該字符串
參數(shù)5：值為－1 指定每一個(gè)子串都要被替換
參數(shù)6：值為1 指定字符串的比較不區(qū)分大小寫。

(高亮顯示關(guān)鍵字)的兩個(gè)函數(shù)
方法2：用正則不區(qū)分大小寫替換指定字符
以下是函數(shù)源代碼：

'//函數(shù)：字符串替換
 '//參數(shù)：正則表達(dá)式,被替換字符串,替換字符串
 Public Function ReplaceTest(patrn, mStr, replStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = True  
  regEx.Global = True
  ReplaceTest = regEx.Replace(mStr, replStr)
  Set regEx = Nothing
 End Function