Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Recensione Google Pixel 10a, si migliora poco ma è sempre un'ottima scelta
Recensione Google Pixel 10a, si migliora poco ma è sempre un'ottima scelta
Google ha appena rinnovato la sua celebre serie A con il Pixel 10a, lo smartphone della serie più conveniente se consideriamo il rapporto tra costo e prestazioni. Con il chip Tensor G4, un design raffinato soprattutto sul retro e l'integrazione profonda di Gemini, il colosso di Mountain View promette un'esperienza premium a un prezzo accessibile. E il retro non ha nessuno scalino
6G, da rete che trasporta dati a rete intelligente: Qualcomm accelera al MWC 2026
6G, da rete che trasporta dati a rete intelligente: Qualcomm accelera al MWC 2026
Al MWC Qualcomm annuncia una coalizione industriale per lanciare il 6G entro il 2029 e introduce agenti IA per la gestione autonoma della RAN. Ericsson, presente sul palco, conferma la direzione: le reti del futuro saranno IA-native fin dalla progettazione
CHUWI CoreBook Air alla prova: design premium, buona autonomia e qualche compromesso
CHUWI CoreBook Air alla prova: design premium, buona autonomia e qualche compromesso
CHUWI CoreBook Air è un ultraleggero da 1 kg con Ryzen 5 6600H, display 14" 16:10 e 16 GB LPDDR5. Offre buona portabilità, autonomia discreta e costruzione in alluminio, ma storage PCIe 3.0 e RAM saldata limitano l'espandibilità. A 549 euro sfida brand più noti nella stessa fascia di mercato.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 01-11-2007, 14:23   #1
Falchetto 1991
Bannato
 
Iscritto dal: Jun 2007
Messaggi: 780
[Visual Basic 2005] Divisione di stringhe...

...tramite separatore ritorno a capo

allora raga mi servirebbe un codice che una volta datogli come input questo:

Contenuto Variabile CLIENTE

Codice:
Cognome
Nome
Telefono
Indirizzo
Data
risultato in una lablel box:

Codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Planet coffee VB 2005 Porting data files\Dettagli Clienti\Archivio\8.txt")
End Sub



e mi restituisca i singoli valori mettendoli ognuno in una label:

Codice:
?


in pratica devo dividere quel blocco di testo usando come divisore il carattere di ritorno a capo e inserire le singole parti in delle variabili string

chi mi ?

Ultima modifica di Falchetto 1991 : 01-11-2007 alle 14:29.
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
Old 02-11-2007, 00:39   #2
Falchetto 1991
Bannato
 
Iscritto dal: Jun 2007
Messaggi: 780
Up
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
Old 02-11-2007, 00:54   #3
okay
Senior Member
 
Iscritto dal: Feb 2002
Messaggi: 906
Quote:
Originariamente inviato da Falchetto 1991 Guarda i messaggi
Up
fai una "split" della stringa del vb6.

Una similitudine della stroke del c.

prendi la stringa e la tagli a tuo piacere inerente al codice .NET

Edit:

Il metodo più semplice usa Split e la modalità che esclude le stringhe vuote:

Public Shared Function ExtractWords(ByVal phrase As String, ByVal delimiters As String) As String()
Try
Return phrase.Split(delimiters.ToCharArray, StringSplitOptions.RemoveEmptyEntries)

Catch ex As Exception
Dim ret As String() = {""}
Return ret
End Try

End Function

Ultima modifica di okay : 02-11-2007 alle 11:48.
okay è offline   Rispondi citando il messaggio o parte di esso
Old 02-11-2007, 09:32   #4
Falchetto 1991
Bannato
 
Iscritto dal: Jun 2007
Messaggi: 780
Quote:
Originariamente inviato da okay Guarda i messaggi
fai una "split" della stringa del vb6.

Una similitudine della stroke del c.

prendi la stringa e la tagli a tuo piacere inerente al codice .NET

Edit:

Il metodo più semplice usa Split e la modalità che esclude le stringhe vuote:

Public Shared Function ExtractWords(ByVal phrase As String, ByVal delimiters As String) As String()
Try
Return phrase.Split(delimiters.ToCharArray, StringSplitOptions.RemoveEmptyEntries)

Catch ex As Exception
Dim ret As String() = {""}
Return ret
End Try

End Function
Ok grazie per la risposta
appena lo metto in pratica ti farò sapere come và
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
Old 02-11-2007, 09:46   #5
71104
Bannato
 
L'Avatar di 71104
 
Iscritto dal: Feb 2005
Città: Roma
Messaggi: 7029
Quote:
Originariamente inviato da okay Guarda i messaggi
Una similitudine della stroke del c.
non esiste nessuna funzione stroke in C
71104 è offline   Rispondi citando il messaggio o parte di esso
Old 03-11-2007, 15:02   #6
Falchetto 1991
Bannato
 
Iscritto dal: Jun 2007
Messaggi: 780
Quote:
Originariamente inviato da Falchetto 1991 Guarda i messaggi
Ok grazie per la risposta
appena lo metto in pratica ti farò sapere come và
Autoquote per dire che ho risolto! grazie Okay

Codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LID As String
        LID = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Planet coffee VB 2005 Porting data files\Dettagli Clienti\Archivio\8.txt")
        Dim separator As Char()
        Dim returnValue As String()
        separator = "$"
        returnValue = LID.Split(separator)
        Label1.Text = returnValue(0)
        Label2.Text = returnValue(1)
        Label3.Text = returnValue(2)
        Label4.Text = returnValue(3)
        Label5.Text = returnValue(4)
End Sub
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Recensione Google Pixel 10a, si migliora poco ma è sempre un'ottima scelta Recensione Google Pixel 10a, si migliora poco ma...
6G, da rete che trasporta dati a rete intelligente: Qualcomm accelera al MWC 2026 6G, da rete che trasporta dati a rete intelligen...
CHUWI CoreBook Air alla prova: design premium, buona autonomia e qualche compromesso CHUWI CoreBook Air alla prova: design premium, b...
Roborock Saros 20: il robot preciso e molto sottile Roborock Saros 20: il robot preciso e molto sott...
ASUS ROG Kithara: quando HIFIMAN incontra il gaming con driver planari da 100mm ASUS ROG Kithara: quando HIFIMAN incontra il gam...
Annunciano il recupero di 4,8 milioni di...
Oggi degli ottimi auricolari Sony con ca...
Muffa in casa? Questo deumidificatore da...
Sonos Era 100: il punto d'ingresso per u...
"Non stiamo sostituendo nessuno con...
Tutti i robot in offerta ora: prezzi bas...
Fra 3 giorni, a mezzanotte, Amazon attiv...
Il principale limite del MacBook Neo &eg...
899€ in tutti i colori, crolla il prezzo...
Sempre più pubblicità su Y...
Costo della memoria alle stelle? Non ave...
GPT-5.4 cambia il modo di usare ChatGPT:...
Centinaia di petabyte in una molecola: l...
Lenovo al MWC 2026: dal PC modulare all'...
Huawei presenta gli agenti di IA per le ...
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: 11:58.


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