Avatar billede flodhesten Nybegynder
12. maj 2007 - 19:11 Der er 6 kommentarer og
1 løsning

Tekst i textarea skal omskrives

Hej eksperter.

Jeg har en form, hvor man kan udfylde et textarea. Den tekst jeg skal have tastet skal altid være i formen:
____

Metal: 73.299 Krystal: 66.606
Deuterium: 21.632 Energi: 424
____

Når der bliver trykket submit, skal den sende til en side, som med requst.form("blabla") tager fat i sætningerne ovenfor.

Meningen er, at den skal ændre lidt på teksten, således at det til sidst bliver:
____

80768.5
16.15
____

80768.5 er tallet ud fra metal + tallet ud fra krystal + deuterium. Det hele skal deles med to.

16.15 kommer af tallet ovenfor 80768.5 delt med 5000.

Der skal ses bort fra tallet ud fra energi.



Jeg sætter stor pris på, hvis nogen kan hjælpe mig.

På forhånd tak.
Avatar billede plx Nybegynder
12. maj 2007 - 19:29 #1
<%
text = Request.Form("text")

If text <> "" Then

    Set re = New RegExp
    re.Pattern = "Metal: ([\d.]+)[\s\S]*?Krystal: ([\d.]*)[\s\S]+?Deuterium: ([\d.]+)"

    Set matches = re.Execute(text)

    If matches.Count > 0 Then
        match = matches(0)

        metal = Int(Replace(matches(0).SubMatches(0), ".", ""))
        krystal = Int(Replace(matches(0).SubMatches(1), ".", ""))
        deut = Int(Replace(matches(0).SubMatches(2), ".", ""))


        total = (metal+krystal+deut)/2
        cargos = Int(total/5000)+1

        Response.write "<b>Small cargos: " & cargos & "<b></br>"
   




    Else
        Response.Write "<b>Forkert syntaks</b>"

    End If


End If
%>

<form method="post" action="test.asp">
<textarea name="text">
Metal: 73.299 Krystal: 66.606
Deuterium: 21.632 Energi: 424
</textarea>

<input type="submit">
Avatar billede flodhesten Nybegynder
12. maj 2007 - 19:44 #2
tak, plx.

Jeg får desværre at siden ikke kan vises. Der må være en fejl et sted?
Avatar billede flodhesten Nybegynder
12. maj 2007 - 19:47 #3
My bad, det virker.
Avatar billede flodhesten Nybegynder
12. maj 2007 - 19:49 #4
Jeg giver dig 50 point mere, hvis du kan få:

Råstoffer på the dark planet [1:167:8] den 05-12 19:34:53
Metal: 37.134 Krystal: 14.092
Deuterium: 44.342 Energi: 4.069

til at blive:

[1:167:8]
Small cargos: xxx
Avatar billede plx Nybegynder
12. maj 2007 - 20:12 #5
<%
text = Request.Form("text")

If text <> "" Then

    Set re = New RegExp
    re.Pattern = "(\[\d+:\d+:\d+\])[\s\S]*?Metal: ([\d.]+)[\s\S]*?Krystal: ([\d.]*)[\s\S]+?Deuterium: ([\d.]+)"

    Set matches = re.Execute(text)

    If matches.Count > 0 Then
   
        coords = matches(0).SubMatches(0)
        metal = Int(Replace(matches(0).SubMatches(1), ".", ""))
        krystal = Int(Replace(matches(0).SubMatches(2), ".", ""))
        deut = Int(Replace(matches(0).SubMatches(3), ".", ""))

        total = (metal+krystal+deut)/2
        cargos = Int(total/5000)+1
        lcargos = Int(total/25000)+1

        Response.write "<b>"+coords+"<br>Small cargos: " & cargos & "<br>Large cargos: " & lcargos & "<b></br>"
 
    Else
        Response.Write "<b>Forkert syntaks</b>"
    End If


End If
%>

<form method="post" action="test.asp">
<textarea name="text">
Råstoffer på the dark planet [1:167:8] den 05-12 19:34:53
Metal: 37.134 Krystal: 14.092
Deuterium: 44.342 Energi: 4.069
</textarea>
<input type="submit">
Avatar billede plx Nybegynder
12. maj 2007 - 20:14 #6
jeg formoder du spiller ogame :)
Avatar billede flodhesten Nybegynder
12. maj 2007 - 20:21 #7
Hehe, jeg formoder du enten gør eller har gjort ;)

Tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester