(更新)怎么在几千个文件里面找出你需要的几百个文件

edmond21 · 发表于 2010-2-20 15:03

我现在又单词语音库（一共19600个文件），他们每个单词为一个文件（比如apple 就是以apple 为文件名的一个声音文件所以也就是19600个单词）--如图1
我现在看英语文章，看到一个我就做个记号，然后把这个单词输入电脑-如图2，因为我要听单词的发音，但是每次要在电脑上开金山词霸听发音比较麻烦，所以我想把单词的发音放在MP3里面，我就可以他们随身听了

问：比如我一次输入了单词数量有500个之多，怎么在19600个文件中快速/批量找到他们对应的声音文件

我的根本目的不是要在电脑上学习啊我是想把我打的英文单词找到相应的英文语言文件放在MP3里面听

[ 本帖最后由 edmond21 于 2010-7-11 18:15 编辑 ]

mikewolf2k · 发表于 2010-2-22 09:26

做个批处理拷贝 copy advent.mp3 newfolder\

edmond21 · 发表于 2010-2-23 14:54

说的具体一点好吗？什么是批处理拷贝？
呵呵我是电脑菜鸟

novo2086 · 发表于 2010-2-23 16:59

我不知道你的问题该怎么解答但是我想要你的那些单词，能否给我呢
谢谢啊 novo2086@hotmail.com 发给我啊

mikewolf2k · 发表于 2010-2-23 17:14

把要拷贝的文件名放在excel中，比如说，
word1
word2
word3

利用公式生成如下字符：
copy word1.mp3 newfolder\word1.mp3
copy word2.mp3 newfolder\word2.mp3\
copy word3.mp3 newfolder\word3.mp3
然后把这些字符拷贝到一个后缀名为bat的空文件中，接着双击这个bat文件即可。

edmond21 · 发表于 2010-2-24 21:14

从这一步骤就完全不懂了呵呵我是零基础所以在详细说明下谢谢
利用公式生成如下字符：
copy word1.mp3 newfolder\word1.mp3
copy word2.mp3 newfolder\word2.mp3\
copy word3.mp3 newfolder\word3.mp3
然后把这些字符拷贝到一个后缀名为bat的空文件中，接着双击这个bat文件即可。

masterexcel · 发表于 2010-2-24 22:00

用VBA来解决。请楼主移步VBA版块。

mikewolf2k · 发表于 2010-2-25 13:58

假设A1＝"word1.mp3", B2公式为"="copy " & A1 & " newfolder\" & A1", 这样就生成了"copy word1.mp3 newfolder\word1.mp3"
接下来，新建一个文件aa.bat,把B列的内容拷入，然后存盘，执行aa.bat

蓝桥玄霜 · 发表于 2010-2-25 15:36

Sub Macro1()
Dim i&, Myr&, Myc%, Arr, j&, n&
Dim myFs As FileSearch
Dim myPath$, wb1 As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:a" & Myr)
On Error Resume Next
Set wb1 = ThisWorkbook
Set myFs = Application.FileSearch
myPath = ThisWorkbook.Path & "\z"
With myFs
.NewSearch
.LookIn = myPath
.FileType = msoFileTypeNoteItem
.Filename = "*.mp3"
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileName) > 0 Then
n = .FoundFiles.Count
For j = 1 To UBound(Arr)
For i = 1 To n
If InStr(.FoundFiles(i), Arr(j, 1)) > 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(j, 1), Address:= _
.FoundFiles(i), TextToDisplay:=Arr(j, 1)
Exit For
End If
Next
Next
End If
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

复制代码

edmond21 · 发表于 2010-2-25 18:45

恕我愚钝能不能用screen 录像来操作一遍啊
或是用图片来解释我真不明白啊

		自动登录	找回密码
密码			免费注册

[原创] (更新)怎么在几千个文件里面找出你需要的几百个文件

我不知道你的问题该怎么解答但是我想要你的那些单词