
Me serais-je tromper dans mon test ?
Je te laisse vérifier.
Code : Tout sélectionner
Procedure.s GetBiggerLength(s1$, s2$)
Protected r$
If Len(s1$) > Len(s2$)
r$ = s1$
Else
r$ = s2$
EndIf
ProcedureReturn r$
EndProcedure
Procedure MixTheTags(*v1.ID3TagV1Tag, *v2.ID3TagV2Tag, *out.ID3TagV2Tag)
*out\title = GetBiggerLength(*v1\title, *v2\title)
*out\artist = GetBiggerLength(*v1\artist, *v2\artist)
*out\album = GetBiggerLength(*v1\album, *v2\album)
*out\year = GetBiggerLength(*v1\year, *v2\year)
; ...
EndProcedure
Code : Tout sélectionner
Procedure MixTheTags(*v1.ID3TagV1Tag, *v2.ID3TagV2Tag, *out.ID3TagV2Tag)
*out\title = *v2\title ; ou *out\title = *v1\title
*out\artist = *v2\artist
*out\album = *v2\album
*out\year = *v2\year
Endprocedure[/quote]
Et bah là ça ne plante pas ...
Si qq1 peut m'éclaircir sur le sujet, ça m'enchanterai, car là j'y comprend plus rien...