『壹』 批处理如何过滤文本中的某些中文字
||加入文本文件名为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