Funktionieret nicht s. mein Hinweis davor. (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl · Aus Text "&nbsp (ctrl+shift+leer), &quote,.." o.a. entfernen ?

2024-04-29 13:42:19
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]19064[/thread]

submit to reddit

Funktionieret nicht s. mein Hinweis davor. [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

Teilbaum:
Funktionieret nicht s. mein Hinweis davor. (16 Artikel) 2014-05-03 12:42

+17 replies
kezall

2014-05-02 09:14

User since
2014-03-18
84 Artikel
BenutzerIn

Danke euch beiden, für die super schnelle Antwort. *
Bedingt durch Ooo (zuvor), kommt ziemlich oft in den Texten nach Punk oder Komma kein Blank. Könnte man es mit =~ s/\.(?! )/\. /g; zu recht biegen? Oder geht es irgendwie besser?

* Hinweis: leider greifen die Vorschläge nicht. Mit OpenOffice geöffnete *.txt zeigt nach wie vor d.h. unbeirrt alle an. Manuell S&E geht aber leider nicht zumutbar.
Last edited: 2014-05-02 09:35:04 +0200 (CEST)
- +2 replies
- MarkusH
  
  2014-05-02 09:44
  
  User since
  2012-04-08
  161 Artikel
  BenutzerIn
  
  Oh doch, die beiden Hinweise funktionieren wunderbar. Du wirst es wahrscheinlich nur falsch umgesetzt haben.
  Eventuell das Semikolon rausschmeissen?
  $q =~ /(bb|[^b]{2})/
  - kezall
    
    2014-05-02 10:09
    
    User since
    2014-03-18
    84 Artikel
    BenutzerIn
    
    Ja, auch dass mit/ohne dem Semikolon, getrennt d.h. einzeln, vor/nach chomp - habe ich ausprobiert - nichts half. Unter LibreOffice sind alle vorhanden.
    Habe in meine alten unterlagen nachgeschaut (früher ooO jetzt selbstverständlich LibreOffice) und fand \x00A0 dto. \#0160 in S&Replase läuft es mit \D und \s. Werde es mit Hex und Dez probieren.
- Gast wer
  
  2014-05-02 09:56
  
  Ablauf:
  
  - datei1 mit "<" öffnen
  - temp datei2 mit ">" öffnen
  - datei1 zeilenweise lesen
  - s/\&...;//gs;
  - zeile in datei2 schreiben
  - datei1, datei2 schließen
  - datei1 löschen
  - datei2 in datei1 umbenennen
  Last edited: 2014-05-02 11:22:45 +0200 (CEST)
- +2 replies
- Raubtier
  
  2014-05-02 10:03
  
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  
  Du brauchst den . im Ersetzungsstring nicht zu quoten. s/\.(?! )/. /g; reicht daher auch.
  
  Ansonsten: die von Bianca und GwenDragon vorgeschlagenen REs sind richtig. Wenn sie bei dir nicht funktionieren, ist entweder dein Text anders oder du wendest die REs falsch an. Was hat das überhaupt mit OpenOffice zu tun?
  - kezall
    
    2014-05-02 10:19
    
    User since
    2014-03-18
    84 Artikel
    BenutzerIn
    
    Hm, mit OpenOffice nichts mehr, es ist Libre Office > 4.Aber die Dateien habe ich vom *.html zu *.tex konvertiert. Somit sind sie ein 'Überbleibsel'. Zum teil sind diese noch aus der ooO Zeit. Die verschiedenne 'Streuung' im text war damals etwas größer.
    Was ich falsch mache ist mir 'wohl' nicht klar - die Lösung ist denoch gefragt. CU
- +11 replies
- bianca
  
  2014-05-02 12:44
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  2014-05-02T07:14:38 kezall
  * Hinweis: leider greifen die Vorschläge nicht. Mit OpenOffice geöffnete *.txt zeigt nach wie vor d.h. unbeirrt alle an.
  
  Dann ist entweder dein Perl Code falsch und du zeigst ihn hier mal oder OpenOffice zeigt etwas an, was in dieser Form garnicht da ist. Wie sieht die Datei denn in einem Hexeditor aus?
  10 print "Hallo"
  20 goto 10
  - +10 replies
  - kezall
    
    2014-05-02 14:22
    User since
    2014-03-18
    84 Artikel
    BenutzerIn
    
    Ja, aber was? Egal was ich mache die   .. weichen nicht. Im Text Editor bleiben sind sie als Abstandhalter vorhanden. Unter LibreOffice eben grau vorkommend. Die Ausfilterung pakt es nicht. Wobei Punkt mit Blank wunderbar funktioniert. Ja es sind eben die große Kleinigkeiten, die mich 'stretschen'. Mit oder ohne Übergabe von $line, zerschippelt oder nicht, Semikolo oder nicht - bleib es mit $nbsp; immer gleich.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    open ( LESEN, "<", "$outInf" ) or die "Lesefehler: $outInf: $? \n"; open ( SCHREIBEN, ">>", "$outTxt" ) or die "Schreibfehler: $outTxt: $? \n"; while ( $line = <LESEN> ) { my $nwline = $line; $nwline =~ s/ //g; $nwline =~ s/\.(?! )/. /g; $nwline =~ s/\,(?! )/, /g; chomp ( $nwline ); print SCHREIBEN $nwline; if ( index ( $nwline, $bisZum ) == 0 ) { last; } } close ( LESEN ); close ( SCHREIBEN ); unlink $outInf;
    - +2 replies
    - jan
      
      2014-05-02 14:30
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      2014-05-02T12:22:04 kezall
      
      Code: (dl )
      
      1 2
      
      open ( LESEN, "<", "$outInf" ) or die "Lesefehler: $outInf: $? \n"; open ( SCHREIBEN, ">>", "$outTxt" ) or die "Schreibfehler: $outTxt: $? \n";
      
      ich weiß nicht, was hier $outTxt ist, aber du hängst da nur an, also falls das die Quelldatei sein sollte, dann wird dein Kram zum Original hinten dran gehängt und Du siehst dann womöglich oben das alte und unten käme das neue.
      
      Sonst pack's doch mal zusammen zu einem lauffähigen Script und lege eine minimale Datei bei, die das Problem zeigt. Dann kann man das leichter nachvollzieher.
      - kezall
        
        2014-05-02 15:28
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Das habe ich. Es läuft schon. Als Test lasse ich nur ein Paar Stück durch. Bei Anhängen sieht man es schon vom Weitem. Ich muss ja sowieso jedesmal nachprüfen - und lösche die Dateien danach.Es gibt hiermit kein Altes - nur Neues.
        P.S. Uraltes Problem, schon vor Jahren ist mein Vorschlag diese Hart Blanks in Libre Office aufzunehmen (zumindest anzeigen) gefruchtet, nur bei der 'Entnahme' happert's noch. Bin mir nicht sicher, ob ich es damals mit BASH bewältigt habe. Aber inzwischen sind hunderte dazugekommen. Weil ich von Perl begeistert bin, will ich es mit diese sehr wendige und recht schnelle Skkriptsprache erledigen.
    - +7 replies
    - GwenDragon
      
      2014-05-02 16:18
      
      User since
      2005-01-17
      14538 Artikel
      Admin1
      
      Wieso denn  ?
      Das ist HTML-Auszeichnung!
      In Textdateien und ODF-Dateien kommen die nicht vor.
      
      Weiche Umbrüche (SoftReturn, Shift Enter) werden in einer Textdatei als LF abgebildet, HardReturns (Enter) als CRLF.
      In einer exportieren XHTML-Datei sind die Absätze als XHTML-Element p und die weichen Umbrüche als XHTML-Element br ausgeführt.
      
      Und ein in " gesetztes geschütztes Leerzeichen wird zu \xA0 (=Non-breaking space)
      
      Ich weiß nicht was du da ersetzten willst!
      Last edited: 2014-05-02 16:22:32 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +6 replies
      - kezall
        
        2014-05-02 17:38
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Die Datei habe ich aus *.html in *.txt konvertiert. Die '  .. diente mir damals in HTML als Abstandhalter. Nach dem Tranfer sind die eben drin im Text geblieben und halten nach wie vor den Abstand. Da ich diese Zeichen überflüssig finde, möchte ich sie raus haben.D.h. die Abstände mit Leertaste oder Tabulator selbst bestimmen.
        Sie kommen als \x000A, \#0160 unter bless als c2A0, #160 194, o240 302 vor.
        
        +5 replies
        
        GwenDragon
        
        2014-05-02 18:30
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        2014-05-02T15:38:32 kezall
        Die Datei habe ich aus *.html in *.txt konvertiert.
        Wie hast du das gemacht?
        
        Quote
        Die '  .. diente mir damals in HTML als Abstandhalter. Nach dem Tranfer sind die eben drin im Text geblieben und halten nach wie vor den Abstand.
        Kann nicht sein, denn   ist eine gültige HTML-Entität. Da hat dein benutztes Konvertierungsprogramm HTML->Text erheblich gepfuscht.
        
        Quote
        Da ich diese Zeichen überflüssig finde, möchte ich sie raus haben.D.h. die Abstände mit Leertaste oder Tabulator selbst bestimmen.
        Leuchtet mir ein.
        
        Quote
        Sie kommen als \x000A, \#0160 unter bless als c2A0, #160 194, o240 302 vor.
        Äh, wie was?
        Du meinst ,das steht als \x000A und \#0160 8also mehrfache Zechen!) im Text?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +4 replies
        
        kezall
        
        2014-05-03 07:10
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Quote
        Wie hast du das gemacht?
        
        Per html2text mit 'utf8'. Kann aber jeder Zeit was anderes (?) nehmen, Diese mords Aufgabe ist noch nicht fertig. Was sich aus meinen Perl-Anfragen sicherlich ergibt. Der Perl-Skript steht und läuft klasse. Jetzt muss ich nur noch 'feilen'.
        Hierbei hätte ich gerne eine andere Lösung: mir ist nur die opendir also DIR in Array Lösung bekannt. Ich glaube ohne in Array einzulesen wäre sicherlich besser. Leider ist der einzige kleine Hinweis im Buch mit Fehldrücken behaftet. Meine Mühe reichte nicht aus.
        
        Quote
        Kann nicht sein, denn   ist eine gültige HTML-Entität. Da hat dein benutztes Konvertierungsprogramm HTML->Text erheblich gepfuscht.
        
        Mit LibreOffice als HTML Datei. Die Abstände von Deu zu Lat habe ich per Ctrl+Shift+Leer Taste bestimmt, besseres wusste ich nicht. Gepfuscht sicher, deshalb ist die Konvertierung auch so schlecht.
        
        - - -
        
        Quote
        Äh, wie was? Du meinst ,das steht als \x000A und \#0160 8also mehrfache Zechen!) im Text?
        
        Natürlich nicht. Nur mir war kein/ist einfacher Abstandhalter bekannt. Schon damals habe ich diese untersucht um sie zu beseitigen. Die unterschiedliche Code kommt von Schreibprogramm, Search&Replase oder Hex-Editor zustande. Im Text selbst steht nur    .. Es war/ist eine einfache, bequeme und schnelle Art es in HTML zu 'Meistern'.
        
        Es scheint(!) dass ich es gelöst habe. In eine (1) Datei - vermutlich unter andere Codierung (Urzeit) verblieb ein E2 80 93 Fragment. Es ist ein LibreOffice Zeichen für mittleres Bindestrich, ist somit ok.
        Entsprechend der Lösung, gehe ich mein Problem von Grund auf.
        Last edited: 2014-05-03 10:01:26 +0200 (CEST)
        
        +3 replies
        
        GwenDragon
        
        2014-05-03 10:07
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        2014-05-03T05:10:14 kezall
        Die unterschiedliche Code kommt von Schreibprogramm, Search&Replase oder Hex-Editor zustande. Im Text selbst steht nur    .. Es war/ist eine einfache, bequeme und schnelle Art es in HTML zu 'Meistern'.
        Ich blicke nicht mehr durch, welche binären Zeichen ersetzt werden müssen und welche durch Konvertierung entstandenen ASCII-Strings.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        kezall
        
        2014-05-03 12:12
        
        User since
        2014-03-18
        84 Artikel
        BenutzerIn
        
        Entschuldigung. Mir war nicht klar, dass dein Vorschlag für HTML-Dateien ist. Ich habe eine Lösung für zu Text konvertierte Dateien gesucht - und schließlich gefunden Uf fff.
        Dabei kam mir die Erleuchtung/Eingebung und probierte deinen, eueren Vorschlag bei HTML-Datei(en). Und siehe da, wahrlich und absolut perfekt.
        Jetzt habe ich 2 Möglichkeiten (quasi Text und Html). Hierbei hat sich eine noch bessere und schnellere Variante für mein Problem offenbart.
        Nach dem Motto: in der Bewegung ist das Leben. Danke.
        
        GwenDragon
        
        2014-05-03 12:40
        
        User since
        2005-01-17
        14538 Artikel
        Admin1
        
        Na ja, ich habe nicht so ganz verstanden, was du wirklich ersetzen musstest. Da haben wir uns missverstanden, und ich habe nicht richtig nachfragen können, was du brauchst.
        Siehts so aus als ob Erfahrene und Anfänger sanaeinader vorbei geredet haben. Tut mir leid.
        
        Ansonsten, kein Problem, das Forum ist ja zum helfen und lernen da ;)
        Last edited: 2014-05-03 12:42:12 +0200 (CEST)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2014-05-02 08:30.