일괄 처리 텍스트 파일 중복 구현 코드
사용 방법:텍스트 를 일괄 처리 에 끌 어 다 놓 으 면 됩 니 다...
@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반복 하면 되 지.단점 은 느 리 고 원래 의 빈 줄 을 유지 하 는 것 이다.
다음은 vbs 구현 코드 입 니 다.
다음은 이 스 크 립 트 의 소스 코드 입 니 다.복사 한 후 vbs 접미사 로 저장 한 파일 입 니 다.두 번 누 르 면 실 행 됩 니 다.파일 을 CD 루트 아래 에 놓 을 text.TXT 입 니 다.특히 주의 하 십시오.텍스트 에 빈 줄 이 없 도록 한 줄 씩 기록 하 십시오.
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이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Java 텍스트 파일 작업 방법 인스턴스 상세 정보본고는 자바 텍스트 파일 조작 방법을 실례로 기술하였다.여러분에게 참고할 수 있도록 나누어 드리겠습니다.구체적인 분석은 다음과 같다. 처음에 자바는 텍스트 파일에 대한 처리를 지원하지 않았기 때문에 이 결함을 보완하...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
