[..] Comparer les noms dans 2 fichiers txt

[doraj90]

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

[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)

 

[mikell]

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'