Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    Trasformazione funzione da php ad asp

    Ciao,

    vorrei trasformare il seguente codice in php in asp...

    Codice PHP:
     <?php
    //il file contenente i link
    $file file("http://www.sito.it/link.txt");
    //recupero tutte le righe dal file
    //link.txt e le salvo nell'array $link
    foreach($file as $riga) {
        
    $link[] = str_replace("\n","",$riga);}
    //creo la funzione che mi permetterà di
    //scegliere i link da visualizzare
    function mostraLink($num_start$num_link)
    { global 
    $link;
        for (
    $i=$num_start$i<=($num_link); $i++) {
           echo 
    "$link[$i]\n";}}
    mostraLink(22,86);
    ?>
    Si può fare?
    Grazie in anticipo.

  2. #2
    Visto che qui siamo sul forum di asp, non sappiamo un bel niente di php (almeno per me è così, o quasi). Di conseguenza spiegaci cosa fà quel codice.

  3. #3
    Originariamente inviato da Dirk Pitt
    Visto che qui siamo sul forum di asp, non sappiamo un bel niente di php (almeno per me è così, o quasi). Di conseguenza spiegaci cosa fà quel codice.
    omo di poca fede, capisci dai commenti cosa fa lo script

    codice:
    sub mostraLink(da,num_link)
    
    dim to_i
    
    if theresArray=true then
    
    	to_i=da+num_link
    	if (to_i)>ubound(links) then to_i=ubound(links)
    	
    	for i=da to to_i
    		response.Write(links(i) & "
    ")
    	next
    else
    
    	response.Write("array link vuoto")
    end if
    
    end sub
    
    dim fso,file,path,count
    
    path=server.MapPath("link.txt")
    
    set fso=Server.CreateObject("scripting.filesystemobject")
    
    count=0: theresArray=false
    if fso.FileExists(path) then
    
    	set file=fso.OpenTextFile(path, 1)
    	
    	'//reggo le linee
    	while not file.AtEndOfLine
    		
    		theresArray=true
    		Redim preserve links(count)
    		links(count)=file.readline
    		count=count+1
    	wend
    	
    	file.close
    	set file=nothing
    	
    end if
    
    
    
    
    call mostraLink(22,86)

  4. #4

  5. #5
    Grazie per il suggerimento...
    Ho corretto la parte relativa a
    response.Write(links(i) & "
    ")
    così...
    response.Write(links(i) )

    Mi resta solo da implementare
    "\n" che non so dove inserirlo, altrimenti interrompe il ciclo in presenza di righe vuote...
    come qui: echo "$link[$i]\n";

    Grazie

  6. #6
    \n in asp viene sostituito da "
    " (per stampare su pagina html) o VBCRLF (per mandare a capo un codice sorgente di una pagina, ad esempio)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.