Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Renault 5 elettrica al giudizio definitivo: solo stupore iniziale o premi meritati?
Renault 5 elettrica al giudizio definitivo: solo stupore iniziale o premi meritati?
Dopo più di un anno dal primo test drive ci siamo rimessi al volante della Renault 5 E-Tech Electric, questa volta utilizzandola come prima auto per circa due settimane. Scoprite con noi se il progetto convince ancora
HONOR CHOICE Projector Air Pro: piccolo, portatile e con Netflix
HONOR CHOICE Projector Air Pro: piccolo, portatile e con Netflix
Un proiettore economico, che fa della portabilità e immediatezza i suoi punti di forza. Adatto per una camera da letto o per la casa vacanze, è basato su sistema proprietario Linux ma offre piena compatibilità ufficiale a Netflix
ASUS ProArt GoPro Edition è il notebook compatto per chi crea
ASUS ProArt GoPro Edition è il notebook compatto per chi crea
Un notebook sviluppato in collaborazione con GoPro ma che risponde al meglio alle necessità di tutti coloro che creano contenuti video: robustezza, design, potenza di calcolo e funzionalità si abbinano al meglio tra di loro, pur se a prezzo di un costo elevato per via della tanta memoria onboard
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 26-03-2005, 11:21   #1
race2
Senior Member
 
Iscritto dal: Aug 2000
Messaggi: 1209
[VB.NET] Esplodere una stringa ...

1) Invio la Stringa per la Query a PHP, e fin qui' tutto OK!
2) Mi ritorna uno Stream di dati e cioe' un elenco di nomi di "Agenti" (vedi codice...)
3) Dovrei potere esplodere questa stringa di ritorno in tante sottostringhe contenenti un nome ciascuna, per poi popolarci la mia ListView


se fossi in PHP "esploderei la stringa dato un carattere da decidere", in un Array di dati, per poi fare un ciclo "foreach" Popolando la "ListView".


ma in VB.NET non so come si fa per esplodere una stringa .........



Codice:
        Dim lipa As IPHostEntry = Dns.Resolve("localhost")
        Dim addr As IPAddress() = lipa.AddressList
        Dim lep As New IPEndPoint(lipa.AddressList(0), 80)
        Dim s As New Socket(lep.Address.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
        Try
            s.Connect(lep)
        Catch e As Exception
            MsgBox(("Exception Thrown: " + e.ToString()))
        End Try

        Dim br As String = vbCrLf
        Dim protocol As String = "HTTP/1.0"
        Dim target As String = "/phpinfo.php"

        Dim body As String = "sql=SELECT Nome_Agente FROM Agenti"

        Dim headers As String = "POST " & target & " " & protocol & br
        headers += "Content-Type: application/x-www-form-urlencoded" & br
        headers += "Content-Length: " & body.Length.ToString & br & br

        Dim msg As Byte() = Encoding.ASCII.GetBytes(headers & body)
        Dim i As Integer = s.Send(msg, 0, msg.Length, SocketFlags.None)


        Dim RecvBytes(1024) As Byte
        Dim strRetPage As String = Nothing
        Dim ASCII As Encoding = Encoding.ASCII
        Dim bytes As Int32 = s.Receive(RecvBytes, RecvBytes.Length, 0)


        'OUTPUT
        MsgBox(Encoding.ASCII.GetString(RecvBytes))
        s.Shutdown(SocketShutdown.Both)
        s.Close()
race2 è offline   Rispondi citando il messaggio o parte di esso
Old 26-03-2005, 13:06   #2
Brigante
Senior Member
 
L'Avatar di Brigante
 
Iscritto dal: Apr 2004
Città: Lariano (RM)
Messaggi: 1372
Non serviva fare un thread nuovo, bastava l'altro!
Comunque, da cosa sono divisi questi nomi di agenti nella stringa?
Fai una piccola routine (Do While... per esempio) che ti separa le stringhe finchè trova il carattere di separazione, e le spara in un array.
__________________
Careful With That Axe
Brigante è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Renault 5 elettrica al giudizio definitivo: solo stupore iniziale o premi meritati? Renault 5 elettrica al giudizio definitivo: solo...
HONOR CHOICE Projector Air Pro: piccolo, portatile e con Netflix HONOR CHOICE Projector Air Pro: piccolo, portati...
ASUS ProArt GoPro Edition è il notebook compatto per chi crea ASUS ProArt GoPro Edition è il notebook c...
Fable e Sol a confronto: due cartoni animati creati su un PC con RTX 3090 Fable e Sol a confronto: due cartoni animati cre...
Il tablet rugged leggero e sottile: Lenovo ThinkTab X11 offre resistenza, doppia USB-C e batteria rimovibile Il tablet rugged leggero e sottile: Lenovo Think...
Eteon e Scam.ai insieme contro le frodi ...
Il nuovo re della generazione video da c...
Ricarica EV più conveniente tra I...
Honor cresce in Italia mentre il caro me...
Qwen3.8-Max: l'IA cinese da 2,4 trilioni...
AMD AM4 risorge: Gigabyte presenta le nu...
MacBook Air sempre più difficile ...
Agosto parte forte su Amazon: questo His...
Seedance 2.5 fa paura: video IA di quali...
Accordo UniCredit, Accenture e IBM per r...
Pergear annuncia un 50mm f/1.4 full fram...
Windows Insider: certificati in scadenza...
Continua la saga dell'agente IA che ha b...
Amazon si scatena col caldo d'agosto: un...
Microsoft ci sta pensando: un futuro sen...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 12:10.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Served by www3v