Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Prova GeForce NOW upgrade Blackwell: il cloud gaming cambia per sempre
Prova GeForce NOW upgrade Blackwell: il cloud gaming cambia per sempre
L'abbonamento Ultimate di GeForce NOW ora comprende la nuova architettura Blackwell RTX con GPU RTX 5080 che garantisce prestazioni tre volte superiori alla precedente generazione. Non si tratta solo di velocità, ma di un'esperienza di gioco migliorata con nuove tecnologie di streaming e un catalogo giochi raddoppiato grazie alla funzione Install-to-Play
Ecovacs Deebot X11 Omnicyclone: niente più sacchetto per lo sporco
Ecovacs Deebot X11 Omnicyclone: niente più sacchetto per lo sporco
Deebot X11 Omnicyclone implementa tutte le ultime tecnologie Ecovacs per l'aspirazione dei pavimenti di casa e il loro lavaggio, con una novità: nella base di ricarica non c'è più il sacchetto di raccolta dello sporco, sostituito da un aspirapolvere ciclonico che accumula tutto in un contenitore rigido
Narwal Flow: con il mocio orizzontale lava i pavimenti al meglio
Narwal Flow: con il mocio orizzontale lava i pavimenti al meglio
Grazie ad un mocio rotante che viene costantemente bagnato e pulito, Narwal Flow assicura un completo e capillare lavaggio dei pavimenti di casa. La logica di intellignza artificiale integrata guida nella pulizia tra i diversi locali, sfruttando un motore di aspirazione molto potente e un sistema basculante per la spazzola molto efficace sui tappeti di casa
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 01-11-2007, 13: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 13:29.
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
Old 01-11-2007, 23:39   #2
Falchetto 1991
Bannato
 
Iscritto dal: Jun 2007
Messaggi: 780
Up
Falchetto 1991 è offline   Rispondi citando il messaggio o parte di esso
Old 01-11-2007, 23: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 10:48.
okay è offline   Rispondi citando il messaggio o parte di esso
Old 02-11-2007, 08: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, 08: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, 14: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


Prova GeForce NOW upgrade Blackwell: il cloud gaming cambia per sempre Prova GeForce NOW upgrade Blackwell: il cloud ga...
Ecovacs Deebot X11 Omnicyclone: niente più sacchetto per lo sporco Ecovacs Deebot X11 Omnicyclone: niente più...
Narwal Flow: con il mocio orizzontale lava i pavimenti al meglio Narwal Flow: con il mocio orizzontale lava i pav...
Panasonic 55Z95BEG cala gli assi: pannello Tandem e audio senza compromessi Panasonic 55Z95BEG cala gli assi: pannello Tande...
HONOR Magic V5: il pieghevole ultra sottile e completo! La recensione HONOR Magic V5: il pieghevole ultra sottile e co...
Apple Watch SE 2ª gen. Cellular a soli 2...
MotoE sospesa dopo il 2025: fine tempora...
GhostRedirector: nuova campagna di attac...
AirPods Pro 3, la nuova traduzione vocal...
Dead Island 3 potrebbe essere già...
Nuova Lancia Ypsilon Rally2 HF Integrale...
Meta e TikTok vincono la sfida legale co...
Silent Hill f: svelato il peso in GB e p...
iPhone 17, Air, 17 Pro e Pro Max: TUTTI ...
YouTube Music mette i testi delle canzon...
Dreame Aqua10 Ultra Roller scende di pre...
Revolut raggiunge i 4 milioni di clienti...
Le serie GTA e CoD dominano la classific...
James Dyson Award Italia 2025: il proget...
Google AI Plus è il nuovo piano low cost...
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: 14:25.


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