完美者（wmzhe.com）网站以软件下载为基础，改版后的网站对功能性板块进行扩充，以期能够解决用户在软件使用过程中遇见的所有问题。网站新增了“软件百科”、“锦囊妙技”等频道，可以更好地对用户的软件使用全周期进行更加专业地服务。
文本批量生成工具。有时候我们需要一些有规律变化的数据，比如XXX_01、XXX_02……YYY_A、YYY_B……这样的数据。为了减省手动操作量，于是这个工具诞生了。"锦囊妙技"栏目是聚合全网软件使用的技巧或者软件使用过程中各种问题的解答类文章，栏目设立伊始，小编欢迎各路软件大神朋友们踊跃投稿，在完美者平台分享大家的独门技巧。
本站文章素材来源于网络，大部分文章作者名称佚失，为了更利于用户阅读和使用，根据需要进行了重新排版和部分改编，本站收录文章只是以帮助用户解决实际问题为目的，如有版权问题请联系小编修改或删除，谢谢合作。
软件大小：712.21 KB
OK, now the tricky part!The FIRST character represents the production/batch run that month.The SECOND character represents the month of production. ***see numbers below***The THIRD character represents the year of production.1 = January2 = February 3 = March 4 = April 5 = May 6 = June 7 = July 8 = August 9 = September A = October B = November C = December Bombshell lipstick = A45A = my Bombshell lipstick was the first production/batch run of the month when it was made.4 = my Bombshell lipstick was produced in April.5 = my Bombshell lipstick was produced in 2005.他这个说的很清楚啊，批号共三个字母或数字组成:1 2 3 4 5 6 7 8 9 A B C（代表10\11和12）第一个字母表示该月的生产批次第二个数字表示是生产的月份第三个数字或字母表示生产的年份
what i want do is to change a material from a material that is not subject to batch requirement to one that is subject to batch requirement and vice versa.The PA text book says "post out all the stocks from the previous fiscal year, the current period, and previous period, then..." So, I want to know how to do the posting. 查看原帖>>
用vbs也比较好做 。我写了一个，你把代码拷贝下来，保存到txt文档中，再将文档的后缀名改成vbs，双击运行就可以了 我按你那个问题中要求又改了，肯定能满足要求 option explicit dim iswrite iswrite=0 call main function main() dim posinfo,pos,filestr filestr=getfilestr() posinfo=getpos("f:\pos.txt") for each pos in posinfo call showinfo(filestr,pos) next end function function getfilestr() dim fso,fread,str,linestr,userstr set fso=createobject("scripting.filesystemobject") dim filestr filestr=inputbox("请输入文件绝对路径","获取文件路径","f:\a.txt") set fread=fso.opentextfile(filestr,1) str=fread.readall fread.close if str="" then wscript.echo "文件为空" wscript.quit end if set fso=nothing getfilestr=str end function function showinfo(sourcestr,userinput) dim userinfo,linenum,querystr,strarry,linestr strarry=split(sourcestr,vbcrlf) linenum=0 userinfo=split(userinput,",") for each linestr in strarry if linenum=cint(userinfo(0))-1 then querystr="第"+userinfo(0)+"行，第"+userinfo(1)+"至"+userinfo(2)+"字符是 "+mid(linestr,cint(userinfo(1)),cint(userinfo(2))-cint(userinfo(1)))+vbcrlf if iswrite=0 then writedata("----------------------------------") end if call writedata(querystr) end if linenum=linenum+1 next iswrite=1 end function function writedata(querydata) Dim fsobj, MyFile Set fsobj = CreateObject("Scripting.FileSystemObject") if fsobj.FileExists("f:\data.txt") then set MyFile=fsobj.opentextfile("f:\data.txt",8) else Set MyFile = fsobj.CreateTextFile("f:\data.txt", false) end if MyFile.WriteLine(querydata) MyFile.Close end function function getpos(path) dim fsobj,posfile,posstr,posarry set fsobj=CreateObject("Scripting.FileSystemObject") if fsobj.fileexists(path) then set posfile=fsobj.opentextfile(path,1) else set posfile=fsobj.createtextfile(path,false) end if posstr=posfile.readall posarry=split(posstr,vbcrlf) getpos=posarry end function 说明： 1、脚本中用的是绝对路径 2、查找到的数据保存在f:\data.txt文档中，如果你想保存在其他文档或位置，直接改脚本就行，如果想通过对话框来做，可以改脚本 3、查询坐标保存在f:\pos.txt文件中，你把坐标写到pos.txt中就行了，坐标形式是例如 第一行 第13到19的字符 应该写成 1,13,19 每个坐标写在一行上 多个坐标就写成 1,13,19 2,13,19 3,13,19 4,13,19 就行了
第一步：准备好用于输入的文件list.txt，每次一行，形如：20100"data.1.txt"20100"data.2.txt"保存为list.txt注意，如果运行100次，每次输入3回，则list.txt应有300行。(输入内容有规律的话，也可以用批处理生成list.txt)第二步：（1）如果AA.exe本身是命令行程序的话，批处理文件a.bat这样写就可以了：@echo off(for /l %%i in (1,1,100) do AA.exe)<list.txt(2)如果AA.exe是带有图形界面的程序的话，那就有点复杂了。我能想到的就是模拟按键输入，不知道还有没有其他好的方法。批处理文件a.bat如下：@echo offset cnt=100set num=3set "title=输入提示"set time1=2set time2=3(for /l %%i in (1,1,%cnt%) do (start "" AA.exeping -n %time1% 127.1 >nulfor /l %%j in (1,1,%num%) do (set /p str=setlocal enabledelayedexpansionset "str=!str:"=""!"mshta vbscript:clipboarddata.setdata("text","!str!"^)(close^)endlocalmshta vbscript:execute("document.write:With CreateObject(""Wscript.shell""):.AppActivate(""%title%""):.sendkeys(""^v~""):end with:self.close"^)ping -n %time2% 127.1 >nul)))<list.txtexit说明：第二行cnt的值100：AA.exe要循环运行的次数第三行num的值3：AA.exe运行后会的输入次数第四行title的值"窗口标题"：输入提示窗口的标题内容。这个是关键!如果提示窗口每次都不一样的话，这个批处理还需要修改一下。第五行time1的值2：AA.exe启动完成所需的秒数第六行time2的值3：输入提示窗口相隔的秒数，最小为3最后，温馨提示下：为了你这个问题，我可没少花功夫，亲~记得采纳哦~亲~O(∩_∩)O~
