怎么删掉文本内容

q838210720

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
str	文本型
arr	文本型		0
str2	文本型
arr2	文本型		0
n	整数型
int	整数型		0
n1	整数型

str ＝ 编码_Utf8到Ansi (读入文件 (取运行目录 () ＋ “\文本.txt”))
' 有中文要用编码_UTF8到ANSI（）
arr ＝ 分割文本 (str, #换行符, )
str2 ＝ “”
arr2 ＝ { “删除1”, “删除2”, “删除3” }
调试输出 (arr)
计次循环首 (取数组成员数 (arr2), n)
数组_去重复 (arr, int)
计次循环尾 ()
计次循环首 (取数组成员数 (arr2), n)
如果真 (数组_寻找数组 (arr, arr2 [n], int) ＞ 0)
删除成员 (arr, int [1], 1)

计次循环尾 ()
调试输出 (“111”, arr)
计次循环首 (取数组成员数 (arr), n)
str2 ＝ str2 ＋ arr [n] ＋ #换行符
计次循环尾 ()
str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 取文本长度 ( #换行符 ))
调试输出 (str2)
' 写到文件 (取运行目录 () ＋ “\文本.txt”, 到字节集 (str2))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 str, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 str2, 文本型<br /> .局部变量 arr2, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 int, 整数型, , "0"<br /> .局部变量 n1, 整数型<br /> <br /> str ＝ 编码_Utf8到Ansi (读入文件 (取运行目录 () ＋ “\文本.txt”))<br /> ' 有中文要用编码_UTF8到ANSI（）<br /> arr ＝ 分割文本 (str, #换行符, )<br /> str2 ＝ “”<br /> arr2 ＝ { “删除1”, “删除2”, “删除3” }<br /> 调试输出 (arr)<br /> <br /> .计次循环首 (取数组成员数 (arr2), n)<br />     数组_去重复 (arr, int)<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (arr2), n)<br />     .如果真 (数组_寻找数组 (arr, arr2 [n], int) ＞ 0)<br />         删除成员 (arr, int [1], 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (“111”, arr)<br /> <br /> .计次循环首 (取数组成员数 (arr), n)<br />     str2 ＝ str2 ＋ arr [n] ＋ #换行符<br /> .计次循环尾 ()<br /> str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 取文本长度 (#换行符))<br /> 调试输出 (str2)<br /> ' 写到文件 (取运行目录 () ＋ “\文本.txt”, 到字节集 (str2))

未删除前的原文本：

doiasjdfe2f23
删除1
asdasd
删除2
sdad2
删除3
sdasd32d
删除4
删除42
asdas
删除2
doiasjdfe2f23
删除3
删除2

黑咖啡

按行id批量删掉txt文本的内容

q838210720

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
str	文本型
arr	文本型		0
str2	文本型
arr2	文本型		0
n	整数型
int	整数型		0
n1	整数型

str ＝ 编码_Utf8到Ansi (读入文件 (取运行目录 () ＋ “\文本.txt”))
' 有中文要用编码_UTF8到ANSI（）
arr ＝ 分割文本 (str, #换行符, )
str2 ＝ “”
arr2 ＝ { “删除1”, “删除2”, “删除3” }
调试输出 (arr)
' 数组_去重复 (arr, int)
计次循环首 (取数组成员数 (arr2), n)
如果真 (数组_寻找数组 (arr, arr2 [n], int) ＞ 0)
str ＝ 文本_替换 (str, , , , arr2 [n] ＋ #换行符, “”, arr2 [n], “”)

计次循环尾 ()
调试输出 (“结果”, str)
. ' 计次循环首 (取数组成员数 (arr), n)
' str2 ＝ str2 ＋ arr [n] ＋ #换行符
. ' 计次循环尾 ()
' str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 取文本长度 (#换行符))
' 调试输出 (str2)
' 写到文件 (取运行目录 () ＋ “\文本.txt”, 到字节集 (str2))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 str, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 str2, 文本型<br /> .局部变量 arr2, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 int, 整数型, , "0"<br /> .局部变量 n1, 整数型<br /> <br /> str ＝ 编码_Utf8到Ansi (读入文件 (取运行目录 () ＋ “\文本.txt”))<br /> ' 有中文要用编码_UTF8到ANSI（）<br /> arr ＝ 分割文本 (str, #换行符, )<br /> str2 ＝ “”<br /> arr2 ＝ { “删除1”, “删除2”, “删除3” }<br /> 调试输出 (arr)<br /> <br /> <br /> ' 数组_去重复 (arr, int)<br /> <br /> .计次循环首 (取数组成员数 (arr2), n)<br />     .如果真 (数组_寻找数组 (arr, arr2 [n], int) ＞ 0)<br />         str ＝ 文本_替换 (str, , , , arr2 [n] ＋ #换行符, “”, arr2 [n], “”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (“结果”, str)<br /> <br /> .' 计次循环首 (取数组成员数 (arr), n)<br />     ' str2 ＝ str2 ＋ arr [n] ＋ #换行符<br /> .' 计次循环尾 ()<br /> ' str2 ＝ 取文本左边 (str2, 取文本长度 (str2) － 取文本长度 (#换行符))<br /> ' 调试输出 (str2)<br /> ' 写到文件 (取运行目录 () ＋ “\文本.txt”, 到字节集 (str2))

这样更好

qq977352880

收藏了，感谢楼主。

chenboss

多线程文本批量替换删除.e

chenboss

多线程文本删换替除.e