Groups | Search | Server Info | Keyboard shortcuts | Login | Register

Groups > hamster.de.misc > #5701

Re: [Korrnews] Eine Leerzeile bitte

Show all headers | View raw

Es schrieb einmal Ruediger Lahl:

> Liebe Hamster-Gemeinde
> 
> Da mir Thunderbird zwischen Quote und meiner Textzeile gerne mal die
> Leerzeile klaut,

Das sollte nun eigentlich wirklich behoben sein. Wenn du das tatsächlich
noch vorkommt, schreib dazu bitte etwas in d.c.s.m.n-b

>  würde ich das vor dem Verschicken gerne Korrnews
> kontrollieren und im Falle des Falls die Leerzeile wieder einfügen lassen.

Korrnews ist nicht nur schon lange tot, es riecht nicht mal mehr
komisch. ;-)

> Kann Korrnews das überhaupt? Wie sähe so was aus?

Bestimmt. Aber ich hole es jetzt nicht mehr aus der Versenkung vor.

> Gesucht wird also:
> Wenn Zeile 1 mit ">" beginnt und Zeile 2 nicht leer ist (oder nicht mit
> ">" beginnt), füge eine Leerzeile zwischen Zeile 1 und 2 ein.
> 
> Idealerweise auch andersrum, also wenn die Leerzeile zwischen meinem
> Text und der nächsten gequoteten Zeile fehlt.

Ich habe dir ein Hamster Skript geschrieben, das genau das macht.

Als Skript-File speichern und unter Aktion "ausgehender Artikel" als
Skript eintragen. "[X] Auf ende des Skripts warten" nicht vergessen.

Alfred

#!hs2varset($skript,ParamStr(0))
print( "Bearbeite Artikel mit: "+$skript )
print( "#"+$skript+"# Aktion: ",ParamStr(1))
varset( $ArtFile,   paramstr(2) )
print( "#"+$skript+"# Artikel File: ",$ArtFile)
varset( $Art, ArtAlloc() )
varset( $bModified, FALSE )

if( FileExists($ArtFile) )
   ArtLoad( $Art, $ArtFile )

   checkArtikel($Art,$bModified)

   if ($bModified)
      ArtSave( $Art, $ArtFile )
      Print( "#"+$skript+"# Speichere geänderten Artikel")
   else
      Print( "#"+$skript+"# Keine Änderungen")
   endif
else
   warn("#"+$skript+"# Kein Artikel-File gefunden."
endif

ArtFree( $Art )
quit
#############

sub checkArtikel($art,*$modified)
   varset( $nBody,-1 )
   varset( $i, 0)
   varset( $line, "")
   varset( $oldType,$lineType,$sigFound,$case,"")
   varset( $oldBody, ListAlloc() )
   varset( $newBody, ListAlloc() )

   listSetText($oldBody,artGetBody($art))

   $nBody=listCount($oldBody)

   $line=listGet($oldBody,0)
   $lineType= isQuote($line)
   listAdd($newBody,$line)

   for($i,1,$nBody-1)
      $line=listGet($oldBody,$i)
      $oldType=$lineType
      $lineType= isQuote($line)
      if($lineType="S")
         $sigFound="S"
      endif

      $case=$oldType+$lineType+$sigFound
      if( $case="QT" || $case="TQ" )
         listAdd($newBody,"")
         $modified=TRUE
      endif

      listAdd($newBody,$line)
   endfor
   if($modified)
      artSetBody($art,listGetText($newBody))
   endif

   ListFree( $newBody )
   ListFree( $oldBody )
endsub

sub isQuote($l)
   if($l="--=20" || $l="-- ")
      return("S")
   endif
   varset($ch,copy(trim($l),1,1))
   if($ch="")
      return("E")
   elseif($ch=">")
      return("Q")
   endif
   return("T")
endsub
# EndeSkript
-- 
      🀊🀧🀔                                                              25834.3
🀌🀧🀩🀨🀨🀩🀛🀘🀝🀝
 🀩🀘🀩🀌
      🀊🀔🀛

Back to hamster.de.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

[Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-10-31 19:23 +0100
  Re: [Korrnews] Eine Leerzeile bitte Alfred Peters <miteinere-mail-adresseindereinleitungszeilewirddieseoftzulang@geekmail.de> - 2025-11-01 13:09 +0100
    Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-01 19:49 +0000
      Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-06 20:15 +0100
    Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-03 13:30 +0100
    Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-03 21:18 +0100
      Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-03 22:39 +0100
      Re: [Korrnews] Eine Leerzeile bitte Alfred Peters <miteinere-mail-adresseindereinleitungszeilewirddieseoftzulang@geekmail.de> - 2025-11-04 20:59 +0100
        Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-04 21:21 +0100
          Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-04 22:12 +0100
        Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-07 12:28 +0100
          Re: [Korrnews] Eine Leerzeile bitte Wolfgang Bauer <wolfgang-bauer@mein.gmx> - 2025-11-07 13:39 +0100
          Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-07 14:45 +0100
            Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-07 16:36 +0100
              Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-07 18:43 +0100
                Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-07 19:16 +0100
                [TB Daily] "Geklaute" Leerzeilen (was: [Korrnews] Eine Leerzeile bitte) Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-07 21:29 +0100
    Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-05 13:54 +0100
    Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-05 20:39 +0100
      Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-06 10:34 +0100
        Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-06 13:05 +0100
          Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-06 13:50 +0100
            Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-06 14:49 +0100
          Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-06 14:29 +0100
            Re: [Korrnews] Eine Leerzeile bitte Ruediger Lahl <ruediger.lahl@gmx.de> - 2025-11-06 14:57 +0100
    Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-06 14:05 +0100
      Re: [Korrnews] Eine Leerzeile bitte Thomas Barghahn <Th.Barghahn@t-online.de> - 2025-11-06 15:21 +0100
      Re: [Korrnews] Eine Leerzeile bitte hamster-now@mail.de (Chris) - 2025-11-10 15:55 +0200
        Re: [Korrnews] Eine Leerzeile bitte Heiko Rost <heiko.rost@gmx.de> - 2025-11-10 16:58 +0100

csiph-web