---

Hej

Jeg har et lille ASP script, som jeg meget gerne vil have "oversat" til PHP,
for at kunne tilbyde min service til endnu flere brugere.

Men da jeg ikke har nogen forstand på PHP, så vil jeg høre om en af jer vil
gøre det ?

Det drejer sig om et script på 13 linier kode (intet avanceret).

Hvis ja, så lad mig høre fra dig.

Jon

---

On Tue, 17 May 2005 02:47:54 +0200, "Jon Klose Larsen"
<klose@post8fejl.tele.dk> wrote:

>Det drejer sig om et script på 13 linier kode (intet avanceret).

Som regel foretrækker vi at se, hvad folk selv har forsøgt i php. Men
om ikke andet kan du jo altid forsøge at poste de 13 linjer her.

Skal koden bruges kommercielt?

--
- Peter Brodersen

---

>
>>Det drejer sig om et script på 13 linier kode (intet avanceret).
>
> Som regel foretrækker vi at se, hvad folk selv har forsøgt i php. Men
> om ikke andet kan du jo altid forsøge at poste de 13 linjer her.
>
> Skal koden bruges kommercielt?
>
> --
> - Peter Brodersen

Jeg ved godt, at I helst ser, hvad man selv har lavet først, og så hjælper
derfra, men jeg har aldrig brugt php, og har ikke tid til at begynde lige
nu.

Som sagt, så er det kun for at kunne yde en bedre service, til de brugere
som ikke har mulighed for asp.

Koden skal ikke bruges kommercielt.... det er til brug for en non-profit
online organisation.

Jeg har copy/paste koden ind herunder.

Jon

*******************************************
<%

callsign = request.querystring("call")

'
'** get the data **
'
set oSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
oSrvHTTP.open "GET","http://www.flysim.dk/vatlog/showlog.asp?call=" &
callsign, false
oSrvHTTP.send

'
'** make a replace and split the data (one line pr. pilot) **
'
serverdata = Replace(oSrvHTTP.ResponseText,vbcrlf,"<br>")
serverarray = split(serverdata,"<br>")

'
'** split the lines into seperate fields for each pilot **
'
for x = 1 to ubound(serverarray)
dataarray = split(serverarray(x),":")

'
'** now run through each datafield and do something **
'
for z = 0 to ubound(dataarray)
response.write "x: " & x & " z: " & z & " - " & dataarray(z) & "<br>"
next
response.write "<br>"

next


%>
*******************************************

---

Hej,

Må blive noget ala,


<?php
/* Get data */
$URL = 'http://www.flysim.dk/vatlog/showlog.asp?call=';
$cnt = file($URL.$_GET['call']);

$dataarray = array();
foreach($cnt as $l) {
$dataarray[] = explode(':',$cnt);
}
.....

Jeg er lidt usikker på hvad det er du laver her:
> '
> '** now run through each datafield and do something **
> '
> for z = 0 to ubound(dataarray)
> response.write "x: " & x & " z: " & z & " - " & dataarray(z) & "<br>"
> next
> response.write "<br>"
>
> next

Så den del er ikke med :(

Kan du vise eksempel output? Hvad skal output f.eks. være af
http://www.flysim.dk/vatlog/showlog.asp?call=882CE

?

mvh
Joahn

mvh
Johan

> *******************************************
> <%
>
> callsign = request.querystring("call")
>
> '
> '** get the data **
> '
> set oSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
> oSrvHTTP.open "GET","http://www.flysim.dk/vatlog/showlog.asp?call=" &
> callsign, false
> oSrvHTTP.send
>
> '
> '** make a replace and split the data (one line pr. pilot) **
> '
> serverdata = Replace(oSrvHTTP.ResponseText,vbcrlf,"<br>")
> serverarray = split(serverdata,"<br>")
>
> '
> '** split the lines into seperate fields for each pilot **
> '
> for x = 1 to ubound(serverarray)
> dataarray = split(serverarray(x),":")
>
> '
> '** now run through each datafield and do something **
> '
> for z = 0 to ubound(dataarray)
> response.write "x: " & x & " z: " & z & " - " & dataarray(z) & "<br>"
> next
> response.write "<br>"
>
> next
>
>
> %>
> *******************************************
>
>

---

Johan Holst Nielsen wrote:
> Hej,
>
> Må blive noget ala,
>
>
> <?php
> /* Get data */
> $URL = 'http://www.flysim.dk/vatlog/showlog.asp?call=';
> $cnt = file($URL.$_GET['call']);
>
> $dataarray = array();
> foreach($cnt as $l) {
> $dataarray[] = explode(':',$cnt);
> }
> ....
>
> Jeg er lidt usikker på hvad det er du laver her:
> > '
> > '** now run through each datafield and do something **
> > '
> > for z = 0 to ubound(dataarray)
> > response.write "x: " & x & " z: " & z & " - " & dataarray(z) & "<br>"
> > next
> > response.write "<br>"
> >
> > next

Tænkte mig lige om - og så var den jo logisk nok...

<?php
$URL = 'http://www.flysim.dk/vatlog/showlog.asp?call=';
$cnt = implode('',file($URL.$_GET['call']));
$cnt = explode('<br>',$cnt);

for($x=1;$x<sizeof($cnt);$x++) {
$dataarray = explode(':',$cnt[$x]);
for($z=0;$z<sizeof($dataarray);$z++) {
echo "x: ".$x." z: ".$z." - ".$dataarray[$z];
}
}
?>

Og lige kort forklaring.

Linje 1: URL som skal kaldes
Linje 2: Alt hentes ned i en streng som er på URL'en
Linje 3: Strengen splittes til et array for hvert "<br>"
Linje 5: Loop påbegyndes på linjerne
Linje 6: Der splittes på : i linjen til et array
Linje 7: Loop på linje arrayet påbegyndes
Linje 8: Der udskrives data :)

mvh
Johan

---

> echo "x: ".$x." z: ".$z." - ".$dataarray[$z];


Ups... der mangler vidste et ."<br>" til sidste så linjen ser således ud:

echo "x: ".$x." z: ".$z." - ".$dataarray[$z]."<br>";

og der tilføjes et echo "<br>"; i linje 10 :)

mvh
johan

---

Jon Klose Larsen wrote:

> Jeg har et lille ASP script, som jeg meget gerne vil have "oversat" til PHP,
> for at kunne tilbyde min service til endnu flere brugere.

Måske kan denne side hjælpe:

http://asp2php.naken.cc/

--
Benny