Page 2 sur 2
Re: [..] Comparer les noms dans 2 fichiers txt
Posté : mer. 25 juil. 2012 11:14
par doraj90
sylvanie a écrit :Ah ouais ... Noël arrive en Juillet
La preuve que Noel arrive bien en Juillet, ça marche nickel, mais quel charabia, je n'y comprend rien. Balèze les gars.
Le plus simple pourrait être de ne pas afficher les extensions de fichiers
Re: [..] Comparer les noms dans 2 fichiers txt
Posté : mer. 25 juil. 2012 13:48
par sylvanie
il y a sûrement plus élégant, mais maintenant je repars de l'existant
► Afficher le texte
Code : Tout sélectionner
$contenu1 = FileRead("film1.txt")
$ret1=@error
$file1 = FileOpen("film1.txt",0)
$contenu2 = FileRead("film2.txt")
$ret2=@error
if $ret2=1 Or $ret1=1 Then
MsgBox(0, "Error", "Unable to open one file at least.")
Exit 1
EndIf
; Read in lines of text until the EOF is reached
While 1
Local $line1 = FileReadLine($file1)
If @error = -1 Then ExitLoop
$line1orig=$line1
$line1=StringRegExpReplace($line1,"( ?\(.+\))?\.mkv$","")
$contenu2=StringRegExpReplace($contenu2,$line1&"( ?\(.+\))?\.mkv"&@CRLF,"")
If @extended > 0 Then
;on supprime le titre de $contenu1 pour n'avoir à la fin que les titres non contenus das $file2
$contenu1=StringReplace($contenu1,$line1orig&@CRLF,"")
EndIf
WEnd
FileClose($file1)
$contenu1=StringRegExpReplace($contenu1,"\.mkv(\r\n)?","$1")
$contenu2=StringRegExpReplace($contenu2,"\.mkv(\r\n)?","$1")
ConsoleWrite("<======================="&@CRLF&$contenu1&@CRLF)
ConsoleWrite(">======================="&@CRLF&$contenu2&@CRLF)
Re: [..] Comparer les noms dans 2 fichiers txt
Posté : mer. 25 juil. 2012 13:59
par mikell
doraj90 a écrit :Le plus simple pourrait être de ne pas afficher les extensions de fichiers
Pourquoi ? c'est pas un souci...
On pourrait intégrer ce genre de petit truc, aussi
Code : Tout sélectionner
$str1 = "123456 (****).mkv"
$str2 = "[****] 123456.mkv"
$str3 = "123456 {****}(****).avi"
msgbox(0,"", _CleanMyMovieTitle($str1) )
msgbox(0,"", _CleanMyMovieTitle($str2) )
msgbox(0,"", _CleanMyMovieTitle($str3) )
Func _CleanMyMovieTitle($str)
Return StringRegExpReplace($str, '(\s*[\[\(\{].+?[\]\)\}]\s*)', "")
EndFunc
Fonction extraite du script de renommage de fichiers par lots de mon dossier 'manga'