Question

vbs中如何从指定文本中读取指定字符串，然后去指定文件夹中查找此文件并拷贝到指定的文件夹中；

例如：一个文本中有如下信息
图像：E:\真实环境\采集\上海\上海-嘉定总\img1 (75).jpg
图像：E:\真实环境\采集\上海\上海-嘉定总\img2 (22).jpg
图像：E:\真实环境\采集\上海\上海-嘉定总\img3 (23).jpg
。。。。。。
。。。。。。
需要分别查找img1 (75).jpg（img2 (22).jpg、img3 (23).jpg。。。。），然后到指定的文件夹中查找出来并复制到指定的文件夹中
求高手解答，正确后在追加50分，
604886641@qq.com

Answer 1

建议用au3做比vbs简单多了
把需要实现的功能 进行详细的描述 发送邮件到 腾讯邮箱 522083856
想要 exe文件的 请留下你的邮箱
先写个 范例
$txtdir = FileOpenDialog("请选择txt文本文件","","文本文件 (*.txt)",1)
$fhandle = FileOpen($txtdir)
$readbuf = FileRead($fhandle)
FileClose($fhandle)
$tagdir = FileSelectFolder("选择要复制到哪个文件夹","")
$line = StringSplit($readbuf,@CRLF,1)
$path = $line
For $i = 1 To $line[0]
$index = StringInStr($line[$i],"E:\")
$path[$i] = StringMid($line[$i],$index)
If FileExists($path[$i]) Then
FileCopy($path[$i],$tagdir)
EndIf
Next
MsgBox(48,"复制完成","谢谢使用！")

Answer 2

用批处理吧
@echo off
for /f "tokens=2 delims=：" %%i in (a.txt) do copy /y "%%i" e:\back

批处理转vbs
set ws=createobject("wscript.shell")
ws.run "cmd /c for /f "&chr(34)&"tokens=2 delims=："&chr(34)&" %i in (a.txt) do copy /y "&chr(34)&"%i"&chr(34)&" e:\back"

Answer 3

Const ForReading = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("help")
Set tf = fso.OpenTextFile("a.txt",1)
Do while tf.AtEndOfStream = false

fso.CopyFile Trim(Split(tf.readline,"：")(1)) , ".\help\"
loop
tf.close