?snælgab netsket edneV

hej!

Giv mig lige 10 minutter så findes der et sted hvor du kan gøre dette...

\Dan

Prøv dette link:

http://elsvinet.dk/eks/reverse.asp

...gitruh 'uks ud rav reD
(Den ka' dog kun ta' én sætning ad gangen...)
Læg [svar] for bidrag...

Lader dog spm. hænge et døgns tid for evt. andre bidrag?

Her er et, til lejligheden, passende palindrom (samme tekst forfra/bagfra) "Løse rovdyr fik ar. De drak i fryd vores øl".

Lidt søgning ->
http://www.eksperten.dk/spm/491389
http://www.eksperten.dk/spm/681933

jamen det gør jeg så...

Mvh. Dan

Ville egentlig (også) finde et sted som ka' håndtere hele sætninger og ikke kun én linie ad gangen...

Det burde da også findes ?

Efvt. en version hvor det kun en de enkelte ORD der er baglæns skrevet ?

line = WScript.Arguments.Item(0)

' 1: linien selv
WScript.Echo line

' 2: reverse hele linien
WScript.echo StrReverse(line)

' reverse de enkelte ord
words = Split(line, " ")
For i = LBound(words) To UBound(words)
  words(i) = StrReverse(words(i))
Next
line2 = Join(words, " ")
WScript.Echo line2

C:\>cscript rev.vbs "Dette er en test"
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

Dette er en test
tset ne re etteD
etteD re ne tset

<arne_v>: Hold da fast - skulle det være så 'let' *S*
Ka' du udbygge lidt med en form for brugerinterface. En inputbox hvor teksten indskrives/copy ind og [Go] og begge ovenstående tekster dukker op ?

<arne_v>: Under alle omstændigheder - læg [svar] for bidrag...

line = InputBox("Indtast linie")

' 1: linien selv
WScript.Echo line

' 2: reverse hele linien
WScript.echo StrReverse(line)

' reverse de enkelte ord
words = Split(line, " ")
For i = LBound(words) To UBound(words)
  words(i) = StrReverse(words(i))
Next
line2 = Join(words, " ")
WScript.Echo line2

Vigtigt:

koeres med

wscript rev.vbs

ikke med

cscript rev.vbs

(c=console,w=windows)

svar

<arne_v>: CDen er sku' sjov ! Findes det mon på en Webside et eller andet sted ?

En web side som kan lave det samme ?

Ikke jeg kender - men det kan jo nemt laves !

ASP eller PHP ?

Fisk!

Det bare så jeg ka' henvise dertil og bruge direkte ...

ASP:

<form method="POST">
Indtast linie: <input type="TEXT" name="linie">
<br>
<input type="SUBMIT" value="Vend">
</form>
<%
line = Request("linie")
If line <> "" Then
    Response.Write line & "<br>" & vbCrLf
    Response.Write StrReverse(line) & "<br>" & vbCrLf
    words = Split(line, " ")
    For i = LBound(words) To UBound(words)
      words(i) = StrReverse(words(i))
    Next
    line2 = Join(words, " ")
    Response.Write line2 & "<br>" & vbCrLf
End If
%>
                         
PHP:

<form method="POST">
Indtast linie: <input type="TEXT" name="linie">
<br>
<input type="SUBMIT" value="Vend">
</form>
<?php
if(isset($_REQUEST["linie"])) {
    $line = $_REQUEST["linie"];
    echo $line . "<br>\r\n";
    echo strrev($line) . "<br>\r\n";
    $words = explode(" ", $line);
    for($i = 0; $i < count($words); $i++) {
        $words[$i] = strrev($words[$i]);
    }
    $line2 = implode(" ", $words);
    echo $line2 . "<br>\r\n";
}
?>

Smid en af dem op på din egen web server.

Dobbelt takker...