Newsgroup: it.comp.lang.visual-basic
Titolo: Estare url da un file txt

Volendo estrare url da un file di testo (di un solo sito) uso la sintassi
Open "c:\url.txt" For Input As 1
While EOF(1) = False
 Line Input #1, l$
 If InStr(l$, "
http://www.sito.net
") Then
  lista.AddItem l$
 End If
Wend
Close 1
Ma questo mi mette nella lista box anche testi come
<a href="
www.sito.net
" target="boh">Ciao</a>
Ciao w gli url 
www.sito.net
Come posso fare in modo che mi prende solamente stringhe del tipo
www.sito.net
 e 
sito.net/ecc..
.. ???
-- 
Francesco 'Imperator' Ricci [FIAG Member] {11/09/2004 16.00.58}
www.undergroundsecurity.net
 : 
www.grandefratello2004.it
www.discografia.org
 : 
www.newsgroup.undergroundsecurity.net
http://imperator.hit-logo-suoneria.com
 : 
www.linkshort.tk
http://snipurl.com/8fl2
 RISPONDIMI CON UN SMS!!!

Non so gli altri... ma io non ci ho capito niente... :-?
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
email spamtrap: 
spam...@nicolaottomano.it

 bye
Allora conta che hai un file txt con:
<a href="
www.google.it
">Google</a>
http://www.google.it
http://www.google.it/bau.htm
ciao ecco l'url di google 
www.google.it
Con quella parte di codice nella listbox vengono inseriti cosě come li
vedi, invece a me interessa inserire solo
http://www.google.it
http://www.google.it/bau.htm
Come posso fare?
-- 
Francesco 'Imperator' Ricci [FIAG Member] {11/09/2004 17.43.39}


 Come posso fare?
Non capisco se mi prendi in giro o se scrivi veramente cosě...
Potresti creare un costrutto logico formalmente e logicamente corretto?
Che significa "ciao ecco l'url di google 
www.google.it
"?
E che vuoi dire "inseriti cosě come li vedi"?
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sč...." (Antico Adagio)


 E che vuoi dire "inseriti così come li vedi"?
Se ho capito bene, ha un file (immagina un log, un guestbook,
una lista di sms, delle e-mail... boh) in cui in ogni riga c'è un
link, ma questi link non sono "normalizzati"; magari l'utente
o gli utenti fanno un copia e incolla o qualcosa del genere, e
nel file trova un mucchio di porcherie.
Lui vuole riconoscere nel file i soli link, ed averli in un formato
uniforme.
*Credo* :-)
*******************
Nel caso, per "ripulirli" potrebbe usare l'API InternetCanonicalizeUrl
ma per individuarli non la vedo proprio una cosa semplice...
ci sono molte possibilità. Potrebbe cominciare con: tutto quello
che inizia con "http://", seguito da caratteri alfanumerici ed almeno
un punto, e finisca con un carattere non A/N. Poi, tutto quello
che inizia per "www.", fino al primo carattere non alfanumerico...
eccetera eccetera. Già con questi due sistemi, rimane fuori
abbastanza poco. Magari non riconoscerà 
http://199868568
come link, anche se è tecnicamente valido :-), ma link
simili in effetti non sono rari... sono rarissimi :-)
Bye, G.

 uniforme.
Dì la verità... hai un parser per espressioni illogiche? :-)
Come hai fatto a dedurre tutto ciò da un testo così confusionario?
Qualcosa l'avevo capita anche io, ma certe espressioni utilizzate nel testo
mi lasciavano perplesso.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)


 Dì la verità... hai un parser per espressioni illogiche? :-)
No, ma ho due figli :-), e se uno riesce a capire cosa vuol dire
"pabum dimba pee fuppa" detto da un bimbo di sedici mesi, è
già a un buon punto per comprendere l'aramaico e il sanscrito. :-)
Ma quello è il minimo. Immagina che per lavoro sono a contatto
quotidianamente con dei, beh, dei... vabbe', lo ammetto:
<sottovoce> giornalisti </sottovoce> :-(
Bye, G.

 Come posso fare?CON UN SMS!!!
inserisci questo codice
pos =INSTR(1$,"
http://www.google.it/bau.htm
")
if pos > 0 then
  url_estratto = mid$(1$,pos,len("
http://www.google.it/bau.htm
")
  combo1.additem  url_estratto
end if
ciao leonello
ps
in sostanza tu leggi tutta la riga e devi estrarre con la funzione mid$ solo
cio che a te interessa

 simili in effetti non sono rari... sono rarissimi :-)
Ma a me non interessano tutti gli url ma solo quelli di un dominio.
http://www.google.it
 così la cosa si semplifica???
Mi spieghi un attimo l'API InternetCanonicalizeUrl???
In che consite? Dove trovo un esempio?
Se un url è 
www.google.it/search.php?url=12354233
 sarà difficile
riconoscerlo tutto?
Grazie
-- 
Francesco 'Imperator' Ricci [FIAG Member] {12/09/2004 10.43.41}


 <sottovoce> giornalisti </sottovoce> :-(
<sottovoce>ok, ma non dirlo a nessuno... :-) </sottovoce>


Io farei un InstrRev sul "www", poi procederei carattere per carattere fino
a trovare il primo "/". A quel punto hai un indirizzo del tipo
www.miosito.it
Gli appiccichi un bel http:// all'inizio e sei a cavallo.
Altro metodo ,più veloce ma più complicato, (consigliato dal Balena in quel
di Torino) è utilizzare le RegEx (Regular Expression).
Vero Marg? :-)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi 
no.ye
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)


 bye
Potevi dirglielo subito !
Tanto si capiva fin dal primo post che la domanda era fatta per estrarre un
url da un file Html...
o no !
Ciao
--
Gulp
....forse mi sono perso qualcosa !

 o no !
Veramente da un file dbx che trasformo prima in txt.
credo userò l'altra strada
--
Inviato da 
http://newsgroup.undergroundsecurity.net/
 Free Web NewsReader!
Segnala gli abusi ad 
ab...@undergroundsecurity.net

 cio che a te interessa
Il problema è che io so solo la base ovvero 
http://www.google.it
 ma voglio 
tutti gli url che iniziano con google ma sono infiniti tipo:
http://www.google.it/site.php?id=23
http://www.google.it/site.php?id=456
http://www.google.it/site.php?id=876
ecc...
La cosa si complica vero?


 credo userò l'altra strada
Gulp, hai visto che non si capiva il senso del discorso?
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.


 bye
:-))


 La cosa si complica vero?
la cosa non si complica affatto: e sufficiente cercare
........
pos_iniziale =INSTR(1$,"
http://www.google.it
")
if pos:iniziale > 0 then
pos_finale = instr(pos_iniziale,1$," ")   'qui si cerca il termine della
stringa dell'indirizzo
                                                           che tu non
conosci completamente )si cerca uno spazio
 lunghezza_url = pos_finale-pos:iniziale+1
url_completo= mid$(1$,pos_iniziale,lunghezza_url)
end if
----------
spero di essere stato chiaro,ma ti consiglio di utilizzarein ambiente di
sviluppo VB il tasto F1
cioe l'help (aiuto)
saluti
leonello