[Résolu][Basic] Supprimer une ligne de sous titre

[ragrati]

Salut
Ceci est assez urgent
j'ai un fichier texte avec des sous titres pour un film que je vais projeter
Je dois virer les sous titres en anglais qui sont déjà gravés dans l'image et donc garder la seconde ligne :

1649: 02:33:36.16 02:33:39.14
"Une pensée amicale pour vous tous.
My warmest regards to everyone.

1650: *02:33:39.23 02:33:41.08
"C'était une chance
It's been a most amazing

1651: 02:33:41.12 02:33:43.08
"et une expérience exceptionnelle.
and rare experience.

1652: 02:33:43.21 02:33:47.09*
"Je n'avais jamais connu ça. A bientôt.
We'll see each other again soon,

1653: 02:33:47.19 02:33:50.06
"La vie ne s'arrête pas là."
because life doesn't end here."

Comment puis je m'en sortir SACHANT que je n'y connais rien en macro et que j'ai peu de temps pour m'y mettre ...

[Bidouille]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Ceci est assez urgent

Ce genre de phrase a plutôt tendance à ralentir les choses. Les bénévoles qui assurent l'entraide sur ce forum font toujours le maximum pour répondre. Ils le font lorsqu'ils en ont le temps, l'envie et bien sûr s'ils ont une réponse à offrir.

En attendant, vous pouvez également participer en répondant à d'autres questions sur notre forum.

[ragrati]

Ok merci et désolé
Il est vrai comme vous dites que je suis venu faire mon "marché" car c'est une manip exceptionnelle que je dois faire et que je ne peux rien apporter aux autres en fait ...

[Dude]

Salut,

Depuis 2005 et la quantité de questions, on s'apperçoit souvent qu'elles ont déjà été posées et donc, qu'une réponse existe.

Je dois virer les sous titres en anglais qui sont déjà gravés dans l'image et donc garder la seconde ligne

Synthétisons le problème, tu dois boucler pour faire une suppresion de ligne.
http://user.services.openoffice.org/fr/ ... r%2A+ligne

Juste pour ton info, il existe des logiciels pour faire des traductions de sous-titres (exemple Subtitles translator).

[ragrati]

merci
je dois vous avouer que je n'y comprends pas grand chose
Je dois en gros effacer chaque seconde ligne après les numéro de sous titres , c'est bien ça ?
Par ailleurs je n'ai pas besoin de traduction mais au contraire d'effacer des sous titres
Et puis la traduction automatique (surtout pour une salle avec 50 personnes) est plus qu'à proscrire

[Churay]

Bonjour

Je considère comme immuable que la ligne en anglais est la 3ème dans un bloc de 4 lignes :

Code : Tout sélectionner

Option Explicit
'
' Code sous licence GNU GPL mis à disposition par le Forum francophone OOo/LO
'   http://user.services.openoffice.org/fr/forum/viewtopic.php?f=8&t=33100
'
' Testé sous LO 3.4.3 et OOo 3.2.1
'
Sub EnglishOut
Dim sFicSrc As String, sFicCbl As String, sTexte As String
Dim iFicSrc As Integer, iFicCbl As Integer
Dim nLig As Integer

	sFicSrc = convertToURL("C:\Temp\SousTitres.txt" 
	sFicCbl = convertToURL("C:\Temp\SousTitresFr.txt" 
	iFicSrc = FreeFile : Open sFicSrc For Input As iFicSrc 
	iFicCbl = FreeFile : Open sFicCbl For OutPut As iFicCbl 

	' jusqu'à la fin de fichier
	While not eof(iFicSrc)
         ' Lecture d'une ligne
         Line Input #iFicSrc, sTexte
         nLig = (nLig + 1) Mod 4
         If nLig <> 3 Then Print #iFicCbl, sTexte
	Wend
	Close #iFicSrc 
	Close #iFicCbl 
End Sub

Ajout : Un fichier sous-titres étant de taille respectable, on peut optimiser l'écriture en écrivant pas blocs de n fois 3 lignes

[Bidouille]

Bonjour,

Dernière visite le : 05 Avr 2012 10:36

N'ayant plus de nouvelle, on peut en déduire que le problème est résolu ou ne se reproduit plus. Merci de baliser vous-même la prochaine fois.
Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré du temps.

En cas d'erreur, contactez un modérateur pour la réouverture du fil.