Python – Convert xml subtitle file to srt format

perlpythonscriptingtext processingxml

I have a xml subtitle that looks like this:

<?xml version="1.0" encoding="utf-8" ?><transcript>
  <Item from="1.16" duration="4.68"><![CDATA[(Dong-hyuk is coming
to see you now.)
]]></Item>
  <Item from="5.92" duration="1"><![CDATA[It's cold.
]]></Item>
  <Item from="9.04" duration="2.88"><![CDATA[- Hello.
- Hello.
]]></Item>
  <Item from="12.2" duration="1.76"><![CDATA[You're busy as always.
]]></Item>
  <Item from="14.04" duration="3.48"><![CDATA[Look what I have here. Ta-da!
]]></Item>
  <Item from="18.88" duration="1.5599999999999998"><![CDATA[Let me give it to you.
]]></Item>
  <Item from="20.919999999999998" duration="2.8"><![CDATA[I'll give you
the most valuable present...
]]></Item>
</transcript>

It seems that "]]></Item>" always spreads to a new line.
Would there be a way to convert this to srt format?

Best Answer

I'd use an XML handling tool like xsh:

open subtitles.xml ;
for /transcript/Item {
    echo position() ;
    echo @from '-->' (@from + @duration) ;
    echo text() ;
}

Output:

1
1.16 --> 5.84
(Dong-hyuk is coming
to see you now.)

2
5.92 --> 6.92
It's cold.

3
9.04 --> 11.92
- Hello.
- Hello.

4
12.2 --> 13.96
You're busy as always.

5
14.04 --> 17.52
Look what I have here. Ta-da!

6
18.88 --> 20.44
Let me give it to you.

7
20.919999999999998 --> 23.72
I'll give you
the most valuable present...

Converting the time data is left as an exercise for the reader.

Related Solutions

How to convert a .txt subtitle file to .srt format

This is very similar to @goldilock's approach but, IMO, simpler and can deal with empty lines in the file and replaces | with a line break :

#!/usr/bin/env perl
my ($time, $text, $next_time, $next_text);
my ($c,$i)=0;
while (<>) {
    ## skip bad lines
    next unless /^\s*([:\d]+)\s*:(.+)/;
    ## If this is the first line. I could have used $. but this is
    ## safer in case the file contains an empty line at the beginning.
    if ($c == 0) {
      $time=$1; 
      $text=$2;
      $c++;
    }
    else {
      ## This is the counter for the subtitle index
      $i++;
      ## Save the current values
      $next_time=$1; 
      $next_text=$2;     
      ## I am assuming that the | should be interpreted
      ## as a newline, remove this if I'm wrong.
      $text=~s/\|/\n/g;     
      ## Print the previous subttitle
      print "$i\n$time,100 --> $next_time,000\n$text\n\n";        
      ## Save the current one for the next line
      $time=$next_time; $text=$next_text;
    }
}     
## Print the last subtitle. It will be dislayed for a minute
## 'cause I'm lazy.
$i++;
$time=~/(\d+:)(\d+)(:\d+)/;
my $newtime=$1 . (sprintf "%02d", $2+1) . $3;
print "$i\n$time,100 --> $newtime,000\n$text\n\n";

Save the script as a file and make it executable, then run:

./script.pl subfile > good_subs.srt

The output I get on your sample was:

1
00:00:44,100 --> 00:01:01,000
" Myślę, więc jestem".
Kartezjusz, 1596-1650

2
00:01:01,100 --> 00:01:06,000
Trzynaste Pietro

3
00:01:06,100 --> 00:01:10,000
Podobno niewiedza uszczęśliwia.

4
00:01:10,100 --> 00:01:13,000
Po raz pierwszy w życiu
zgadzam się z tym.

5
00:01:13,100 --> 00:01:15,000
Wolałbym...

6
00:01:15,100 --> 00:01:19,000
nigdy nie odkryć
tej straszliwej prawdy.

7
00:01:19,100 --> 00:02:19,000
Teraz już wiem...

Best Answer

Related Solutions

How to convert a .txt subtitle file to .srt format

Related Question