[VB6] Leggere include sul server e recuperare i valori

[maximum]

Sul web server ho una pagina "societa.inc" che altro non contiene che questo codice:

<SELECT NAME="COD">
	<option value="E">Societa1</option>
	<option value="S">Societa2</option>
	<option value="Y">Societa3</option>
	<option value="C">Societa4</option>	
	<option value="B">Societa5</option>	
	<option value="M">Societa6</option>	
	<option value="D">Societa7</option>	
	<option value="X">Societa8</option>	
	<option value="T">Societa9</option>	
	<option value="A">Societa10</option>	
</SELECT>

Se sul browser digito "http://localhost/A2V2/Asp/include/societa.inc" leggo eprfettamente questa struttura.

Ora io devo cercare di leggere tale file e recuperare tutti i valori delle option (value e descrizione) del file per caricare una combo Visual Basic nel mio client.

Come posso fare?

Grazie anticipatamente.

[maximum]

Nessun aiuto?

[alka]

Originariamente inviato da maximum
Nessun aiuto?

Io non ho il problema molto chiaro. O meglio, ti servirebbe solamente un "parser" in grado di interpretare il contenuto del file .INC che scarichi dal server?

Ciao!

[maximum]

Comincio con il dirti che la struttura del file.inc non è più quella di sopra, bensì questa:

[ELENCO_SOCIETA]
SOC_1=E\A\ciccioA
SOC_2=S\A\ciccioB
SOC_3=Y\A\ciccioC
SOC_4=C\A\ciccioD 
SOC_5=B\A\ciccioE 
SOC_6=M\A\ciccioF 
SOC_7=D\A\ciccioG 
SOC_8=X\A\ciccioH 
SOC_9=T\A\ciccioI 
SOC_10=A\A\ciccioL

Questo è quello che dovrei fare:

abbiamo un'applicazione che è ripartita in client e server.
La parte client è fatta in VB e legge alcune configurazioni tramite dei file.ini, in avvio di progetto.
La parte server fa altre cose che non ti sto qui a dettagliare.
Quello che vorrei fare è sostituire il meccanismo di lettura del file.ini, mettendo lo stesso oggetto (rinominato file.inc, la cui struttura è quella che ho scritto su) e leggere questo dal client in modo da reperire l'elenco delle società e i corrispondenti valori ( che per intenderci sono dati dalla prima lettera dopo l'uguale).
Quindi quello che vorrei fare è puntare attraverso l'indirizzo http://.... al file in questione e tramite una funzione leggere le informazioni che mi serve reperire.

A me manca come intanto puntare a tale file sul server e poi come leggere queste informazioni.

Il risultato finale mi deve caricare un combobox con l'elenco delle società.

Motivo di tale intervento sul client, quello di evitare ad ogni modifica del file.ini (fin'ora utilizzato), di dovere rilasciare tutto il progetto VB (client) agli utenti che l'utilizzano, ma fare si che modificando il file sul server il client non venga toccato!
Questo anche per consentire una certa elasticità.

Spero di essere stato abbastanza esplicativo.

[maximum]

Sono riuscito a leggere il file con i seguente sistema:

Dim FileLetto As String
Dim strURL As String
    
strURL = URL_DATI & INCLUDEFILEINC
    
FileLetto = ReadFile(strURL)

Questa la funzione:

Public Function ReadFile(strURL As String) As String
    Dim Inet As Object
    
    Set Inet = CreateObject("InetCtls.Inet")
    
    Inet.URL = strURL
        
    ReadFile = Inet.OpenURL(strURL, 0)
        
    Do Until Inet.StillExecuting = False ' WAIT Downloading..
      DoEvents
    Loop
       
    Set Inet = Nothing
End Function

[oregon]

Di nulla ...