『壹』 批處理如何過濾文本中的某些中文字
||加入文本文件名為1.txt
@ECHO OFF
set a=茶 膜 蜜 mg
FOR %%I IN (%A%) DO (type 1.txt | findstr /I %%I >NUL && echo 含有指版定權字元%%I || echo 不含有指定字元%%I)
PAUSE
『貳』 asp程序，怎麼可以把下面的話中間的空格全部過濾掉！不要告訴我一個一個刪！！！我要的是過濾函數！
可以使用replace()，用 "" 替換掉全部的 " "或者"/\s*$/"
語法如下：
replace()
功能將一個字元串中指定個數的字元串替換為另一個字元串。
語法Replace ( string1, start, string2,n,m )
參數string1：string類型，指定要使用string2替換其中一部分內容的字元串；
參數start：long類型，指定要從哪個字元位置開始替換字元串，字元串中第一個字元的位置為1；
參數n：long類型，指定要替換開始字元起始位置,從左到右；
參數m：int類型，指定要替換字元串的次數,1 代表替換一次；
參數string2：string類型，指定用哪個字元串替換string1的部分字元返回值String。函數執行成功時返回替換後的字元串，發生錯誤時返回空字元串（""）。如果任何參數的值為NULL，Replace()函數返回NULL。用法如果start參數指定的位置超過了string1的長度，那麼Replace()函數把將string2拼接到string1的後面形成的字元串返回。
『叄』 用vb怎樣過濾掉文本中重復的數字和不是數字的內容
Option Explicit
Private Sub Command1_Click()
Dim arr, mark, dic, i
mark = ""
arr = "下：京(6699) 上海(4789) 美國(87968)……(6699)……當然並不(123)都是怎(456)樣把"
arr = fc(arr, mark)
Set dic = CreateObject("scripting.dictionary")
For i = LBound(arr) To UBound(arr)
If Not dic.Exists(arr(i)) Then dic.Add arr(i), ""
Next
arr = dic.keys
Print Join(arr)
Open "c:\a.txt" For Output As #1
Print #1, Join(arr)
Close #1
Set dic = Nothing
End Sub
Function fc(s, mark)
Dim arr, brr(), i, n, str
If InStr(s, "(") > 0 Then
arr = Split(s, "(")
For i = 0 To UBound(arr)
If InStr(arr(i), ")") > 0 Then
str = Split(arr(i), ")")(0)
If IsNumeric(str) Then
ReDim Preserve brr(n)
brr(n) = Split(arr(i), ")")(0) & mark
n = n + 1
End If
End If
Next
End If
fc = brr
End Function
『肆』 cmd命令行怎麼過濾文本重復行
:: 刪除指定文本中重復的行，不保留空行
:: 對不符合變數命名規則、變數個數超過限制的文本都無法正確處理
@echo off>temp.txtset /p file=輸入要處理的文件名：
set file=%file:"=%for /f "delims=" %%i in ('type "%file%"') do (if not defined %%i set %%i=A & echo %%i>>temp.txt)
start temp.txt