电影服务器太乱，想要个电影分类的源码，新手求助
本帖最后由 dyong 于 2009-7-15 21:51 编辑是这样，因为电影服务器的电影太乱了，手动分类很麻烦，我用影视图文采集工具采集了资料！会生成一个与电影同名的TXT文件，在每部电影的文件夹内，每个TXT内都有影片的类型的字符如“爱情片”“恐怖片”。我想按照类型把所有影片分类存放！比如说恐怖片放一个文件夹，爱情片放一个文件夹！
AU3可以实现么？
TXT文本内容：
名称：爱情餐歌
别名：恋爱复活
导演：赵忠贤
主演：张瑞希、金志勋、全光烈、林志恩
上映：2005年5月14日
地区：韩国
类型：连续剧
简介：
人鱼小姐张瑞希继《人鱼小姐》、《旋转木马》后再次上路，携手mbc诸明星真情演绎《爱情餐歌》，瑞希在剧中以轻松、开朗的风格演绎了从女服务员做起成为全国知名的意大利面食连锁店总经理的成功女性，并于事业成功的同时获得了甜蜜的爱情。无疑这又是一部有些灰姑娘意味的作品，无限期待瑞希超越自我，给我们一个惊艳的吴纯真。
关键是要用类型 可以
不过你还要截图给多一点资料 应该可以哦 继续求啊！！ 本帖最后由 顽固不化 于 2009-7-16 15:25 编辑
给定的资料太少。
我就给你假设一下吧。$DirOld="D:\old"
;原电影目录,其下每个电影一个目录，目录名为电影名
$DirNew="D:\电影新目录"
;现在的电影存放目录
ToolTip(@CRLF&" 正在转移电影到新的类型目录下，请稍候... "&@CRLF,@DesktopWidth/2,@DesktopHeight/2,"",0,2)
RunWait(@COMSPEC & " /c dir "&$DirOld&"\*.* >Flst.txt","",@SW_HIDE)
$Fhd=FileOpen("Flst.txt",0)
$L=8
While 1
$lineSTR=FileReadLine($Fhd,$L)
if @error Then ExitLoop
If $lineSTR="" Or StringInStr($lineSTR,"<DIR>")=0 Then ExitLoop
$l=$l+1
$lstarry=StringSplit($lineSTR," ")
$Fname=$lstarry[$lstarry]
If FileExists($DirOld&"\"&$Fname&"\"&$Fname&".txt") Then
FileMove($DirOld&"\"&$Fname,$DirNew&"\"&_findFMT($DirOld&"\"&$Fname&"\"&$Fname&".txt")&"\"&$Fname&"\",9)
EndIf
WEnd
FileClose($Fhd)
FileDelete("Flst.txt")
Exit
Func _findFMT($FileName)
Local $FFhd,$txtline,$o
Local $FMT=""
$FFhd=FileOpen($FileName,0)
$o=0
While 1
$o=$o+1
$txtline=FileReadLine($FFhd,$o)
if @Error Then ExitLoop
if StringInStr($txtline,"类型：")<>0 Then
$FMT=StringMid($txtline,StringInStr($txtline,"类型：")+3)
ExitLoop
EndIf
WEnd
FileClose($FFhd)
If $FMT="" Then $FMT="未分类"
Return $FMT
EndFunc
#include <Array.au3>
_filelist(InputBox("", "请输入路径", "", "",50,50))
MsgBox(1,'提示','完毕！')
Func _filelist($DirSource)
If FileExists($DirSource) = 0 Then
MsgBox(64, "", "【" & $DirSource & "】目录不存在")
Else
Local $WorkingDir, $search, $file
FileChangeDir($DirSource)
$search = FileFindFirstFile("*.*")
If $search = -1 Then
MsgBox(64, "", "目录【" & $DirSource & "】无任何文件和子目录")
Else
While 1
$list = FileFindNextFile($search)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($DirSource & "\" & $list), "D") Then
_filelist($DirSource & "\" & $list)
Else
$s=StringRegExp(FileRead($DirSource & "\" & $list), '类型：(.*)\n简介', 3)
for $i = 0 to UBound($s) - 1
If StringInStr($s[$i], "连续剧") Then
DirMove($DirSource,"C:\连续剧",1)
ElseIf StringInStr($s[$i], "爱情片") Then
DirMove($DirSource,"C:\爱情片",1)
ElseIf StringInStr($s[$i], "恐怖片") Then
DirMove($DirSource,"C:\恐怖片",1)
EndIf
Next
EndIf
WEnd
EndIf
EndIf
EndFunc
本帖最后由 dyong 于 2009-7-17 02:27 编辑
谢谢高手兼好人！！楼上的两位大侠的脚本都可以用！万分感激！！！
页:
[1]