Subject: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 00:03:01 +0200
Habe mir das KN-Script ROT13 aus dem Script-Archiv in meine
news-out.def
("Header.def") kopiert, aber leider scheint das nicht zu funktionieren.
Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
dann mit #) beenden.
Wie man aber schon an diesem Posting hier sieht, wird nix gerotet damit.
Was mache ich also flscha?
Uwe
news-out.def
("Header.def") kopiert, aber leider scheint das nicht zu funktionieren.
Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
dann mit #) beenden.
Wie man aber schon an diesem Posting hier sieht, wird nix gerotet damit.
Was mache ich also flscha?
Uwe
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 00:48:29 +0200
Uwe Premer schrieb:
> Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
> dann mit #) beenden.
Du verwendest tatsächlich (R13, es sollte aber (R13: sein, bei mir wird
der zu rottende Text aber in () (truhryyg). :-(
und wech
Ralf
--
Großer FF-Gottesdienst jeden Sonntag 15 Uhr im Gemeindehaus am Roten
Fuchsstieg 2.0. Nächstes Predigtthema: "Ein Affe ist kein Fuchs. Oder:
Wie man gefährliche Sekten erkennt, die uns nicht zum Heil führen."
> Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
> dann mit #) beenden.
Du verwendest tatsächlich (R13, es sollte aber (R13: sein, bei mir wird
der zu rottende Text aber in () (truhryyg). :-(
und wech
Ralf
--
Großer FF-Gottesdienst jeden Sonntag 15 Uhr im Gemeindehaus am Roten
Fuchsstieg 2.0. Nächstes Predigtthema: "Ein Affe ist kein Fuchs. Oder:
Wie man gefährliche Sekten erkennt, die uns nicht zum Heil führen."
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 01:34:57 +0200
Ralf Zilian schrieb am 12.05.2008 00:48 Uhr:
> Uwe Premer schrieb:
>
>> Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
>> dann mit #) beenden.
>
> Du verwendest tatsächlich (R13,
Nein, hatte bloß vergessen, den : noch mit hinzuschreiben.
> es sollte aber (R13: sein, bei mir wird
> der zu rottende Text aber in () (truhryyg). :-(
Habe nun zumindest einen Schritt zur Lösung gemacht:
in dem Script steht folgender Ausdruck: ":.+#"
Dabei hat der Autor des Script die Klammern nicht escaped.
Wenn ich nun wie folgt escape und damit diesen Ausdruck im Script
ersetze:
"\(R13:.+#\)", dann habe ich ein anderes Problem, ähnlich dem deinen:
Der gerotete Text steht zwischen : und #.
Beispiel:
: qvrfre Grkg jveq trebgrg #
Uwe
> Uwe Premer schrieb:
>
>> Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
>> dann mit #) beenden.
>
> Du verwendest tatsächlich (R13,
Nein, hatte bloß vergessen, den : noch mit hinzuschreiben.
> es sollte aber (R13: sein, bei mir wird
> der zu rottende Text aber in () (truhryyg). :-(
Habe nun zumindest einen Schritt zur Lösung gemacht:
in dem Script steht folgender Ausdruck: ":.+#"
Dabei hat der Autor des Script die Klammern nicht escaped.
Wenn ich nun wie folgt escape und damit diesen Ausdruck im Script
ersetze:
"\(R13:.+#\)", dann habe ich ein anderes Problem, ähnlich dem deinen:
Der gerotete Text steht zwischen : und #.
Beispiel:
: qvrfre Grkg jveq trebgrg #
Uwe
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 11:15:26 +0200
Uwe Premer schrieb:
> Wenn ich nun wie folgt escape und damit diesen Ausdruck im Script
> ersetze:
> "\(R13:.+#\)", dann habe ich ein anderes Problem, ähnlich dem deinen:
>
> Der gerotete Text steht zwischen : und #.
>
> Beispiel:
>: qvrfre Grkg jveq trebgrg #
Dann ersetze am Anfang des Skriptes doch einmal
%rot13% = CutRight(%rot13%,1)
%rot13% = CutLeft(%rot13%,4)
durch
%rot13% = CutRight(%rot13%,2)
%rot13% = CutLeft(%rot13%,5)
(ungetestet)
Gruß
Uwe
> Wenn ich nun wie folgt escape und damit diesen Ausdruck im Script
> ersetze:
> "\(R13:.+#\)", dann habe ich ein anderes Problem, ähnlich dem deinen:
>
> Der gerotete Text steht zwischen : und #.
>
> Beispiel:
>: qvrfre Grkg jveq trebgrg #
Dann ersetze am Anfang des Skriptes doch einmal
%rot13% = CutRight(%rot13%,1)
%rot13% = CutLeft(%rot13%,4)
durch
%rot13% = CutRight(%rot13%,2)
%rot13% = CutLeft(%rot13%,5)
(ungetestet)
Gruß
Uwe
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 11:23:15 +0200
Uwe Premer schrieb:
>Habe mir das KN-Script ROT13 aus dem Script-Archiv in meine
>news-out.def
>("Header.def") kopiert, aber leider scheint das nicht zu funktionieren.
>
>Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
>dann mit #) beenden.
>Wie man aber schon an diesem Posting hier sieht, wird nix gerotet damit.
Einleiten mit "(R13:", abschließen mit "#)" ohne ".
>Was mache ich also flscha?
So wie ich das Script verstehe muss "(R13:" und "#)" in einer Zeile
sein. Außerdem habe ich grade
| if %bodyline% matches "(R13:.+#)"
| var %rot13%:string = Extract("(R13:.+#)",%bodyline%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,1)
| %rot13% = CutLeft(%rot13%,4)
in
| if %bodyline% matches "\(R13:.+#\)"
| var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,2)
| %rot13% = CutLeft(%rot13%,5)
und
| %bodyline% = Replace(%bodyline%,"(R13:.+#)",%rot13%)
in
| %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
geändert.
Dann geht es.
Michael
--
Hamsterhilfe für Hamster-Classic 2.1.0.11 Stand 01.05.2008
http://zielgra.de/hamster/HAMSTER_HLP_DE.ZIP
>Habe mir das KN-Script ROT13 aus dem Script-Archiv in meine
>news-out.def
>("Header.def") kopiert, aber leider scheint das nicht zu funktionieren.
>
>Da steht drin, ich müsse einen zu rotenden Text mit (R13 einleiten und
>dann mit #) beenden.
>Wie man aber schon an diesem Posting hier sieht, wird nix gerotet damit.
Einleiten mit "(R13:", abschließen mit "#)" ohne ".
>Was mache ich also flscha?
So wie ich das Script verstehe muss "(R13:" und "#)" in einer Zeile
sein. Außerdem habe ich grade
| if %bodyline% matches "(R13:.+#)"
| var %rot13%:string = Extract("(R13:.+#)",%bodyline%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,1)
| %rot13% = CutLeft(%rot13%,4)
in
| if %bodyline% matches "\(R13:.+#\)"
| var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,2)
| %rot13% = CutLeft(%rot13%,5)
und
| %bodyline% = Replace(%bodyline%,"(R13:.+#)",%rot13%)
in
| %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
geändert.
Dann geht es.
Michael
--
Hamsterhilfe für Hamster-Classic 2.1.0.11 Stand 01.05.2008
http://zielgra.de/hamster/HAMSTER_HLP_DE.ZIP
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 12:03:41 +0200
Michael Jaritz schrieb:
> So wie ich das Script verstehe muss "" haq "" in einer Zeile
> sein.
So ist es, gerade getestet.
> Außerdem habe ich grade
> | if %bodyline% matches ".+"
> | var %rot13%:string = Extract(".+",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,1)
> | %rot13% = CutLeft(%rot13%,4)
> in
> | if %bodyline% matches "\(R13:.+#\)"
> | var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,2)
> | %rot13% = CutLeft(%rot13%,5)
>
> und
> | %bodyline% = Replace(%bodyline%,".+",%rot13%)
> in
> | %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
> geändert.
>
> Dann geht es.
Jap, funktioniert. :-)
und wech
Ralf
--
"Schlaf, ist das nicht dieser halbherzige Koffeeinersatz?"
> So wie ich das Script verstehe muss "" haq "" in einer Zeile
> sein.
So ist es, gerade getestet.
> Außerdem habe ich grade
> | if %bodyline% matches ".+"
> | var %rot13%:string = Extract(".+",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,1)
> | %rot13% = CutLeft(%rot13%,4)
> in
> | if %bodyline% matches "\(R13:.+#\)"
> | var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,2)
> | %rot13% = CutLeft(%rot13%,5)
>
> und
> | %bodyline% = Replace(%bodyline%,".+",%rot13%)
> in
> | %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
> geändert.
>
> Dann geht es.
Jap, funktioniert. :-)
und wech
Ralf
--
"Schlaf, ist das nicht dieser halbherzige Koffeeinersatz?"
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 21:19:25 +0200
Ralf Zilian schrieb:
>Michael Jaritz schrieb:
>
>> So wie ich das Script verstehe muss "" haq "" in einer Zeile
^^^^^^^^^
>> sein.
>
>So ist es, gerade getestet.
Den Beweis sieht man ;-)
Schöner wäre eine Umsetzung auch mehrzeiliger ROT13-Texte, deshalb habe
ich mir folgendes überlegt:
|var %fullbody%:string = Full Body
|
|if %fullbody% matches "(?sm)\(R13:.+?#\)"
| while %fullbody% matches "(?sm)\(R13:.+?#\)"
| var %rot13%:string = Extract("(?sm)\(R13:.+?#\)",%fullbody%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,2)
| %rot13% = CutLeft(%rot13%,5)
|
| %rot13% = Replace(%rot13%,"A","01_")
| %rot13% = Replace(%rot13%,"B","02_")
| %rot13% = Replace(%rot13%,"C","03_")
| %rot13% = Replace(%rot13%,"D","04_")
| %rot13% = Replace(%rot13%,"E","05_")
| %rot13% = Replace(%rot13%,"F","06_")
| %rot13% = Replace(%rot13%,"G","07_")
| %rot13% = Replace(%rot13%,"H","08_")
| %rot13% = Replace(%rot13%,"I","09_")
| %rot13% = Replace(%rot13%,"J","10_")
| %rot13% = Replace(%rot13%,"K","11_")
| %rot13% = Replace(%rot13%,"L","12_")
| %rot13% = Replace(%rot13%,"M","13_")
| %rot13% = Replace(%rot13%,"N","14_")
| %rot13% = Replace(%rot13%,"O","15_")
| %rot13% = Replace(%rot13%,"P","16_")
| %rot13% = Replace(%rot13%,"Q","17_")
| %rot13% = Replace(%rot13%,"R","18_")
| %rot13% = Replace(%rot13%,"S","19_")
| %rot13% = Replace(%rot13%,"T","20_")
| %rot13% = Replace(%rot13%,"U","21_")
| %rot13% = Replace(%rot13%,"V","22_")
| %rot13% = Replace(%rot13%,"W","23_")
| %rot13% = Replace(%rot13%,"X","24_")
| %rot13% = Replace(%rot13%,"Y","25_")
| %rot13% = Replace(%rot13%,"Z","26_")
| %rot13% = Replace(%rot13%,"a","27_")
| %rot13% = Replace(%rot13%,"b","28_")
| %rot13% = Replace(%rot13%,"c","29_")
| %rot13% = Replace(%rot13%,"d","30_")
| %rot13% = Replace(%rot13%,"e","31_")
| %rot13% = Replace(%rot13%,"f","32_")
| %rot13% = Replace(%rot13%,"g","33_")
| %rot13% = Replace(%rot13%,"h","34_")
| %rot13% = Replace(%rot13%,"i","35_")
| %rot13% = Replace(%rot13%,"j","36_")
| %rot13% = Replace(%rot13%,"k","37_")
| %rot13% = Replace(%rot13%,"l","38_")
| %rot13% = Replace(%rot13%,"m","39_")
| %rot13% = Replace(%rot13%,"n","40_")
| %rot13% = Replace(%rot13%,"o","41_")
| %rot13% = Replace(%rot13%,"p","42_")
| %rot13% = Replace(%rot13%,"q","43_")
| %rot13% = Replace(%rot13%,"r","44_")
| %rot13% = Replace(%rot13%,"s","45_")
| %rot13% = Replace(%rot13%,"t","46_")
| %rot13% = Replace(%rot13%,"u","47_")
| %rot13% = Replace(%rot13%,"v","48_")
| %rot13% = Replace(%rot13%,"w","49_")
| %rot13% = Replace(%rot13%,"x","50_")
| %rot13% = Replace(%rot13%,"y","51_")
| %rot13% = Replace(%rot13%,"z","52_")
| %rot13% = Replace(%rot13%,"01_","N")
| %rot13% = Replace(%rot13%,"02_","O")
| %rot13% = Replace(%rot13%,"03_","P")
| %rot13% = Replace(%rot13%,"04_","Q")
| %rot13% = Replace(%rot13%,"05_","R")
| %rot13% = Replace(%rot13%,"06_","S")
| %rot13% = Replace(%rot13%,"07_","T")
| %rot13% = Replace(%rot13%,"08_","U")
| %rot13% = Replace(%rot13%,"09_","V")
| %rot13% = Replace(%rot13%,"10_","W")
| %rot13% = Replace(%rot13%,"11_","X")
| %rot13% = Replace(%rot13%,"12_","Y")
| %rot13% = Replace(%rot13%,"13_","Z")
| %rot13% = Replace(%rot13%,"14_","A")
| %rot13% = Replace(%rot13%,"15_","B")
| %rot13% = Replace(%rot13%,"16_","C")
| %rot13% = Replace(%rot13%,"17_","D")
| %rot13% = Replace(%rot13%,"18_","E")
| %rot13% = Replace(%rot13%,"19_","F")
| %rot13% = Replace(%rot13%,"20_","G")
| %rot13% = Replace(%rot13%,"21_","H")
| %rot13% = Replace(%rot13%,"22_","I")
| %rot13% = Replace(%rot13%,"23_","J")
| %rot13% = Replace(%rot13%,"24_","K")
| %rot13% = Replace(%rot13%,"25_","L")
| %rot13% = Replace(%rot13%,"26_","M")
| %rot13% = Replace(%rot13%,"27_","n")
| %rot13% = Replace(%rot13%,"28_","o")
| %rot13% = Replace(%rot13%,"29_","p")
| %rot13% = Replace(%rot13%,"30_","q")
| %rot13% = Replace(%rot13%,"31_","r")
| %rot13% = Replace(%rot13%,"32_","s")
| %rot13% = Replace(%rot13%,"33_","t")
| %rot13% = Replace(%rot13%,"34_","u")
| %rot13% = Replace(%rot13%,"35_","v")
| %rot13% = Replace(%rot13%,"36_","w")
| %rot13% = Replace(%rot13%,"37_","x")
| %rot13% = Replace(%rot13%,"38_","y")
| %rot13% = Replace(%rot13%,"39_","z")
| %rot13% = Replace(%rot13%,"40_","a")
| %rot13% = Replace(%rot13%,"41_","b")
| %rot13% = Replace(%rot13%,"42_","c")
| %rot13% = Replace(%rot13%,"43_","d")
| %rot13% = Replace(%rot13%,"44_","e")
| %rot13% = Replace(%rot13%,"45_","f")
| %rot13% = Replace(%rot13%,"46_","g")
| %rot13% = Replace(%rot13%,"47_","h")
| %rot13% = Replace(%rot13%,"48_","i")
| %rot13% = Replace(%rot13%,"49_","j")
| %rot13% = Replace(%rot13%,"50_","k")
| %rot13% = Replace(%rot13%,"51_","l")
| %rot13% = Replace(%rot13%,"52_","m")
|
| %fullbody% = Replace(%fullbody%,"(?sm)\(R13:.+?#\)",%rot13%)
|
| wend
|
| if Bodylines>1
| Delete Bodylines from 2 to Bodylines
| endif
|
| Set BodyLine(1) = %fullbody%
|
|endif
Das macht aus
|1.Zeile
|2.Zeile mit ROT13: (R13:mehrzeilig
|gerottet#) ;3. Zeile ab jetzt ohne ROT13
|4.Zeile
|5.Zeile mit ROT13: (R13:mehrzeilig
|gerottet#) ;6. Zeile ab jetzt ohne ROT13
|7.Zeile
|
|Michael
|
|--
|Signaturzeile1
|Signaturzeile2
|Signaturzeile3
|Signaturzeile4
dieses
|1.Zeile
|2.Zeile mit ROT13: zruemrvyvt
|trebggrg ;3. Zeile ab jetzt ohne ROT13
|4.Zeile
|5.Zeile mit ROT13: zruemrvyvt
|trebggrg ;6. Zeile ab jetzt ohne ROT13
|7.Zeile
|
|Michael
|
|
|
|--
|Signaturzeile1
|Signaturzeile2
|Signaturzeile3
|Signaturzeile4
Wo kommen die zusätzlichen Leerzeilen her?
Michael
--
Hamsterhilfe für Hamster-Classic 2.1.0.11 Stand 01.05.2008
http://zielgra.de/hamster/HAMSTER_HLP_DE.ZIP
>Michael Jaritz schrieb:
>
>> So wie ich das Script verstehe muss "" haq "" in einer Zeile
^^^^^^^^^
>> sein.
>
>So ist es, gerade getestet.
Den Beweis sieht man ;-)
Schöner wäre eine Umsetzung auch mehrzeiliger ROT13-Texte, deshalb habe
ich mir folgendes überlegt:
|var %fullbody%:string = Full Body
|
|if %fullbody% matches "(?sm)\(R13:.+?#\)"
| while %fullbody% matches "(?sm)\(R13:.+?#\)"
| var %rot13%:string = Extract("(?sm)\(R13:.+?#\)",%fullbody%)
| %rot13% = 8BitTo7Bit(%rot13%)
| %rot13% = CutRight(%rot13%,2)
| %rot13% = CutLeft(%rot13%,5)
|
| %rot13% = Replace(%rot13%,"A","01_")
| %rot13% = Replace(%rot13%,"B","02_")
| %rot13% = Replace(%rot13%,"C","03_")
| %rot13% = Replace(%rot13%,"D","04_")
| %rot13% = Replace(%rot13%,"E","05_")
| %rot13% = Replace(%rot13%,"F","06_")
| %rot13% = Replace(%rot13%,"G","07_")
| %rot13% = Replace(%rot13%,"H","08_")
| %rot13% = Replace(%rot13%,"I","09_")
| %rot13% = Replace(%rot13%,"J","10_")
| %rot13% = Replace(%rot13%,"K","11_")
| %rot13% = Replace(%rot13%,"L","12_")
| %rot13% = Replace(%rot13%,"M","13_")
| %rot13% = Replace(%rot13%,"N","14_")
| %rot13% = Replace(%rot13%,"O","15_")
| %rot13% = Replace(%rot13%,"P","16_")
| %rot13% = Replace(%rot13%,"Q","17_")
| %rot13% = Replace(%rot13%,"R","18_")
| %rot13% = Replace(%rot13%,"S","19_")
| %rot13% = Replace(%rot13%,"T","20_")
| %rot13% = Replace(%rot13%,"U","21_")
| %rot13% = Replace(%rot13%,"V","22_")
| %rot13% = Replace(%rot13%,"W","23_")
| %rot13% = Replace(%rot13%,"X","24_")
| %rot13% = Replace(%rot13%,"Y","25_")
| %rot13% = Replace(%rot13%,"Z","26_")
| %rot13% = Replace(%rot13%,"a","27_")
| %rot13% = Replace(%rot13%,"b","28_")
| %rot13% = Replace(%rot13%,"c","29_")
| %rot13% = Replace(%rot13%,"d","30_")
| %rot13% = Replace(%rot13%,"e","31_")
| %rot13% = Replace(%rot13%,"f","32_")
| %rot13% = Replace(%rot13%,"g","33_")
| %rot13% = Replace(%rot13%,"h","34_")
| %rot13% = Replace(%rot13%,"i","35_")
| %rot13% = Replace(%rot13%,"j","36_")
| %rot13% = Replace(%rot13%,"k","37_")
| %rot13% = Replace(%rot13%,"l","38_")
| %rot13% = Replace(%rot13%,"m","39_")
| %rot13% = Replace(%rot13%,"n","40_")
| %rot13% = Replace(%rot13%,"o","41_")
| %rot13% = Replace(%rot13%,"p","42_")
| %rot13% = Replace(%rot13%,"q","43_")
| %rot13% = Replace(%rot13%,"r","44_")
| %rot13% = Replace(%rot13%,"s","45_")
| %rot13% = Replace(%rot13%,"t","46_")
| %rot13% = Replace(%rot13%,"u","47_")
| %rot13% = Replace(%rot13%,"v","48_")
| %rot13% = Replace(%rot13%,"w","49_")
| %rot13% = Replace(%rot13%,"x","50_")
| %rot13% = Replace(%rot13%,"y","51_")
| %rot13% = Replace(%rot13%,"z","52_")
| %rot13% = Replace(%rot13%,"01_","N")
| %rot13% = Replace(%rot13%,"02_","O")
| %rot13% = Replace(%rot13%,"03_","P")
| %rot13% = Replace(%rot13%,"04_","Q")
| %rot13% = Replace(%rot13%,"05_","R")
| %rot13% = Replace(%rot13%,"06_","S")
| %rot13% = Replace(%rot13%,"07_","T")
| %rot13% = Replace(%rot13%,"08_","U")
| %rot13% = Replace(%rot13%,"09_","V")
| %rot13% = Replace(%rot13%,"10_","W")
| %rot13% = Replace(%rot13%,"11_","X")
| %rot13% = Replace(%rot13%,"12_","Y")
| %rot13% = Replace(%rot13%,"13_","Z")
| %rot13% = Replace(%rot13%,"14_","A")
| %rot13% = Replace(%rot13%,"15_","B")
| %rot13% = Replace(%rot13%,"16_","C")
| %rot13% = Replace(%rot13%,"17_","D")
| %rot13% = Replace(%rot13%,"18_","E")
| %rot13% = Replace(%rot13%,"19_","F")
| %rot13% = Replace(%rot13%,"20_","G")
| %rot13% = Replace(%rot13%,"21_","H")
| %rot13% = Replace(%rot13%,"22_","I")
| %rot13% = Replace(%rot13%,"23_","J")
| %rot13% = Replace(%rot13%,"24_","K")
| %rot13% = Replace(%rot13%,"25_","L")
| %rot13% = Replace(%rot13%,"26_","M")
| %rot13% = Replace(%rot13%,"27_","n")
| %rot13% = Replace(%rot13%,"28_","o")
| %rot13% = Replace(%rot13%,"29_","p")
| %rot13% = Replace(%rot13%,"30_","q")
| %rot13% = Replace(%rot13%,"31_","r")
| %rot13% = Replace(%rot13%,"32_","s")
| %rot13% = Replace(%rot13%,"33_","t")
| %rot13% = Replace(%rot13%,"34_","u")
| %rot13% = Replace(%rot13%,"35_","v")
| %rot13% = Replace(%rot13%,"36_","w")
| %rot13% = Replace(%rot13%,"37_","x")
| %rot13% = Replace(%rot13%,"38_","y")
| %rot13% = Replace(%rot13%,"39_","z")
| %rot13% = Replace(%rot13%,"40_","a")
| %rot13% = Replace(%rot13%,"41_","b")
| %rot13% = Replace(%rot13%,"42_","c")
| %rot13% = Replace(%rot13%,"43_","d")
| %rot13% = Replace(%rot13%,"44_","e")
| %rot13% = Replace(%rot13%,"45_","f")
| %rot13% = Replace(%rot13%,"46_","g")
| %rot13% = Replace(%rot13%,"47_","h")
| %rot13% = Replace(%rot13%,"48_","i")
| %rot13% = Replace(%rot13%,"49_","j")
| %rot13% = Replace(%rot13%,"50_","k")
| %rot13% = Replace(%rot13%,"51_","l")
| %rot13% = Replace(%rot13%,"52_","m")
|
| %fullbody% = Replace(%fullbody%,"(?sm)\(R13:.+?#\)",%rot13%)
|
| wend
|
| if Bodylines>1
| Delete Bodylines from 2 to Bodylines
| endif
|
| Set BodyLine(1) = %fullbody%
|
|endif
Das macht aus
|1.Zeile
|2.Zeile mit ROT13: (R13:mehrzeilig
|gerottet#) ;3. Zeile ab jetzt ohne ROT13
|4.Zeile
|5.Zeile mit ROT13: (R13:mehrzeilig
|gerottet#) ;6. Zeile ab jetzt ohne ROT13
|7.Zeile
|
|Michael
|
|--
|Signaturzeile1
|Signaturzeile2
|Signaturzeile3
|Signaturzeile4
dieses
|1.Zeile
|2.Zeile mit ROT13: zruemrvyvt
|trebggrg ;3. Zeile ab jetzt ohne ROT13
|4.Zeile
|5.Zeile mit ROT13: zruemrvyvt
|trebggrg ;6. Zeile ab jetzt ohne ROT13
|7.Zeile
|
|Michael
|
|
|
|--
|Signaturzeile1
|Signaturzeile2
|Signaturzeile3
|Signaturzeile4
Wo kommen die zusätzlichen Leerzeilen her?
Michael
--
Hamsterhilfe für Hamster-Classic 2.1.0.11 Stand 01.05.2008
http://zielgra.de/hamster/HAMSTER_HLP_DE.ZIP
Subject: Re: Script "ROT 13" funktioniert bei mir nicht
Date: Mon, 12 May 2008 19:53:19 +0200
"Michael Jaritz" <ewiglich@abwesend.de> schrieb:
> Uwe Premer schrieb:
>
>>Habe mir das KN-Script ROT13 aus dem Script-Archiv in meine
>>news-out.def
>>("Header.def") kopiert, aber leider scheint das nicht zu
>>funktionieren.
>>Was mache ich also flscha?
>
> So wie ich das Script verstehe muss "" haq "" in einer Zeile
> sein. Außerdem habe ich grade
> | if %bodyline% matches ".+"
> | var %rot13%:string = Extract(".+",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,1)
> | %rot13% = CutLeft(%rot13%,4)
> in
> | if %bodyline% matches "\(R13:.+#\)"
> | var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,2)
> | %rot13% = CutLeft(%rot13%,5)
>
> und
> | %bodyline% = Replace(%bodyline%,".+",%rot13%)
> in
> | %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
> geändert.
>
> Dann geht es.
Super! Vielen Dank für die schnelle Unterstützung.
So geht es auch bei mir: wrgmg xynccg qnf EBGra
Uwe
> Uwe Premer schrieb:
>
>>Habe mir das KN-Script ROT13 aus dem Script-Archiv in meine
>>news-out.def
>>("Header.def") kopiert, aber leider scheint das nicht zu
>>funktionieren.
>>Was mache ich also flscha?
>
> So wie ich das Script verstehe muss "" haq "" in einer Zeile
> sein. Außerdem habe ich grade
> | if %bodyline% matches ".+"
> | var %rot13%:string = Extract(".+",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,1)
> | %rot13% = CutLeft(%rot13%,4)
> in
> | if %bodyline% matches "\(R13:.+#\)"
> | var %rot13%:string = Extract("\(R13:.+#\)",%bodyline%)
> | %rot13% = 8BitTo7Bit(%rot13%)
> | %rot13% = CutRight(%rot13%,2)
> | %rot13% = CutLeft(%rot13%,5)
>
> und
> | %bodyline% = Replace(%bodyline%,".+",%rot13%)
> in
> | %bodyline% = Replace(%bodyline%,"\(R13:.+#\)",%rot13%)
> geändert.
>
> Dann geht es.
Super! Vielen Dank für die schnelle Unterstützung.
So geht es auch bei mir: wrgmg xynccg qnf EBGra
Uwe