欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來到入門教程網(wǎng)!

DOS/BAT

當(dāng)前位置:主頁 > 腳本語言 > DOS/BAT >

批處理處理文本文件去重復(fù)實現(xiàn)代碼

來源:本站原創(chuàng)|時間:2020-01-10|欄目:DOS/BAT|點擊: 次

最近需要將重復(fù)的內(nèi)容去掉,所以就想到了使用bat或vbs實現(xiàn),沒想到網(wǎng)上已經(jīng)有人寫好了,測試也正好學(xué)習(xí)一下

使用方法:把文本拖到批處理上就行了。。。

@echo off
:: Code by oicu#lsxk.org 2007/11/29

rem chcp 437>nul
:: 看情況使用,utf-8編碼的文件不能少了chcp命令,一般無需使用,
:: 但無論是否使用都不支持utf-16的文件。

:: pushd "%~dp1"
:: 如果不用pushd和popd,文件都要用絕對路徑不能只用文件名。

if "%~1"=="" goto :EOF
set outputfile=%~dpn1_output%~x1

type nul>"%outputfile%"

echo Waiting...

for /F "tokens=1* delims=:" %%i in ('findstr /n .* "%~1"') do (
  findstr /B /E /C:"%%j" "%outputfile%">nul 2>&1 || echo.%%j>>"%outputfile%"
)

pause
start "" notepad "%outputfile%"
:: popd
exit

【 在 oicu (Oh! I see you!) 的大作中提到: 】
: 去重復(fù)倒是行。。缺點就是慢和保留原有的空行了。

以下是vbs實現(xiàn)的代碼

以下是這個腳本的源代碼,復(fù)制后另存為vbs后綴的文件,雙擊即可運行。文件要放在C盤根下的Text.TXT,請?zhí)貏e注意:文本中一行一條記錄,不要有空行。

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001 
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathToTextFile = "C:\"
strFile = "Test.txt"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=" & strPathtoTextFile & ";" & _
     "Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordSet.Open "Select DISTINCT * FROM " & strFile, _
  objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordSet.EOF

Set objFSO = CreateObject("Scripting.FileSystemObject")
   set Fp=objFSO.OpenTextFile("C:\test1.txt",8,True,0)
   fp.WriteLine objRecordSet.Fields.Item(0).Value
   fp.close
   set objFSO = nothing
   objRecordSet.MoveNext
Loop

上一篇:Dos批處理編寫一鍵清理系統(tǒng)垃圾的bat代碼

欄    目:DOS/BAT

下一篇:批處理bat遞歸計算N!的實現(xiàn)代碼

本文標(biāo)題:批處理處理文本文件去重復(fù)實現(xiàn)代碼

本文地址:http://mengdiqiu.com.cn/a1/DOS_BAT/10050.html

網(wǎng)頁制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語言數(shù)據(jù)庫服務(wù)器

如果侵犯了您的權(quán)利,請與我們聯(lián)系,我們將在24小時內(nèi)進行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有