"批处理"或者"vbs"读取行文本文件 分类保存进相应的文件夹中。 50
我有个文本,里面很多类似于:手机号:姓名:所在地:使用时间:手机号:姓名:所在地:使用时间:希望高手,可以编个批处理或vbs,提取手机号为每个文本文件名,文本内容为:手机...
我有个文本,里面很多类似于:
手机号:
姓名:
所在地:
使用时间:
手机号:
姓名:
所在地:
使用时间:
希望高手,可以编个批处理或vbs,提取手机号为每个文本文件名,文本内容为:
手机号:
姓名:
所在地:
使用时间:
放在文件夹名为所在地中,,,谢了,,, 展开
手机号:
姓名:
所在地:
使用时间:
手机号:
姓名:
所在地:
使用时间:
希望高手,可以编个批处理或vbs,提取手机号为每个文本文件名,文本内容为:
手机号:
姓名:
所在地:
使用时间:
放在文件夹名为所在地中,,,谢了,,, 展开
1个回答
展开全部
=============================代码========================================
@echo off&setlocal enabledelayedexpansion&title 提取1.txt文本信息
set /a m=0&set /a n=0
set telnumber=手机号
set name=姓名
set region=所在地
set usetime=使用时间
for /f "tokens=1,2 delims=:" %%i in (1.txt) do (
set temp_var1=%%i
set temp_var2=%%j
set /a m=m+1
rem echo !temp_var1! !temp_var2!
if !n! neq !m! (
if "!temp_var1!"=="!telnumber!" set temp_telnumber=!temp_var2!&echo !temp_var1! : !temp_var2!>"!temp_telnumber!".txt
if "!temp_var1!"=="!name!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
if "!temp_var1!"=="!region!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
if "!temp_var1!"=="!usetime!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
)
set /a n=m
)
=================================代码结束================================
保存为XX.bat 放在和那个文本文档同一个文件夹,并将文本文档命名为1.txt .运行即可完成
希望对你有帮助,望采纳!
@echo off&setlocal enabledelayedexpansion&title 提取1.txt文本信息
set /a m=0&set /a n=0
set telnumber=手机号
set name=姓名
set region=所在地
set usetime=使用时间
for /f "tokens=1,2 delims=:" %%i in (1.txt) do (
set temp_var1=%%i
set temp_var2=%%j
set /a m=m+1
rem echo !temp_var1! !temp_var2!
if !n! neq !m! (
if "!temp_var1!"=="!telnumber!" set temp_telnumber=!temp_var2!&echo !temp_var1! : !temp_var2!>"!temp_telnumber!".txt
if "!temp_var1!"=="!name!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
if "!temp_var1!"=="!region!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
if "!temp_var1!"=="!usetime!" echo !temp_var1! : !temp_var2!>>"!temp_telnumber!".txt
)
set /a n=m
)
=================================代码结束================================
保存为XX.bat 放在和那个文本文档同一个文件夹,并将文本文档命名为1.txt .运行即可完成
希望对你有帮助,望采纳!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询