Récupération de ligne à partir d'un index
Résolu
remousse
Messages postés
299
Date d'inscription
Statut
Membre
Dernière intervention
-
remousse Messages postés 299 Date d'inscription Statut Membre Dernière intervention -
remousse Messages postés 299 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je scanne un document word par paragraphe et j'aimerai récupérer toutes les lignes situé après un paragraphe en question.
Pour être plus clair, dans mon code ci-dessous, je veux récupérer tout ce qu'il y a après la ligne commençant par REGLE.
Cependant je ne récupère rien du tout et cela est normal car ma variable
Comment faire pour récupérer les lignes situées après celle-ci ?
Par avance merci.
Je scanne un document word par paragraphe et j'aimerai récupérer toutes les lignes situé après un paragraphe en question.
Pour être plus clair, dans mon code ci-dessous, je veux récupérer tout ce qu'il y a après la ligne commençant par REGLE.
for my $p (1..$n_paragraphs) { my $regle = "REGLE"; my $paragraph = $paragraphs->Item ($p); my $text = $paragraph->{Range}->{Text}; my $start_index; if ($text =~/^$regle/){ $start_index = $p; } if (defined($start_index)){ print "P = $p\n"; print "I = $start_index\n"; if ($p > $start_index){ print RULE "$text\n"; } } }
Cependant je ne récupère rien du tout et cela est normal car ma variable
$start_indexn'est définie qu'une seule fois, au moment où je me trouve sur la ligne commençant par REGLE.
Comment faire pour récupérer les lignes situées après celle-ci ?
Par avance merci.
A voir également:
- Récupération de ligne à partir d'un index
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Index téléphonique - Guide
- Mètre en ligne - Guide
1 réponse
Problème résolu :
for my $p (1..$n_paragraphs) { my $regle = "REGLE"; my $paragraph = $paragraphs->Item ($p); my $text = $paragraph->{Range}->{Text}; my $start_index; if ($text =~/^$regle/){ $start_index = $p; } if (defined($start_index)){ for my $r ($start_index+1..$n_paragraphs) { $paragraph = $paragraphs->Item ($r); $text = $paragraph->{Range}->{Text}; $text =~ s/[\n]//g; print RULE "$text"; } } }