Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema
Insta360 Luna Ultra integra un sensore da 1 pollice 8K, ottiche Leica e triplo chip IA. Tra schermo OLED rimovibile, workflow I-Log a 10 bit e stabilizzazione a tre assi, analizziamo le doti tecniche di una gimbal camera pensata per i professionisti
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa
Marvel's Wolverine porta Logan in un'avventura inedita, violenta e fortemente narrativa, costruita attorno alla sua natura di combattente e al difficile rapporto con il proprio passato. Insomniac Games punta su combattimenti spettacolari, progressione e personalizzazione, inserendo l'azione in un mondo segnato dalla persecuzione dei mutanti. Un viaggio intenso, che alterna mattanza, esplorazione e momenti sorprendentemente emotivi.
DJI Romo 2: tante novità lo rendono un robot completo
DJI Romo 2: tante novità lo rendono un robot completo
Romo 2 è la seconda generazione di robot lavapavimenti di DJI, un modello che si caratterizza per la precisione nel sistema di navigazione e per il funzionamento particolarmente silenzioso. Con le modifiche introdotte in questa seconda versione, e un posizionamento di prezzo più allineato alla concorrenza, rappresenta una valida alternativa sul mercato delle soluzioni di pulizia domestica
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


Insta360 Luna Ultra: la potenza del sensore da 1 pollice incontra la portabilità estrema Insta360 Luna Ultra: la potenza del sensore da 1...
Marvel's Wolverine, la recensione: Logan torna protagonista in un'avventura brutale e intensa Marvel's Wolverine, la recensione: Logan torna p...
DJI Romo 2: tante novità lo rendono un robot completo DJI Romo 2: tante novità lo rendono un ro...
Sony Bravia 9 II: il True RGB alla prova, dove l'LCD sfida l'OLED Sony Bravia 9 II: il True RGB alla prova, dove l...
Geely EX5, un mese al volante: il SUV elettrico cinese che ci ha sorpreso (quasi) senza riserve Geely EX5, un mese al volante: il SUV elettrico ...
Il mistero della stagione degli uragani ...
La Corte di Cassazione affida i ricorsi ...
Tutti i nuovi prodotti Apple prenotabili...
DDR5, un kit da 598 a 1.215 euro in un m...
Portatile ASUS Vivobook 14 a 837,95€: AM...
Sparita da anni, AppZapper torna nel 202...
Revolut, la truffa dei dati è partita da...
Geely E2: abbiamo visto dal vivo la regi...
HUAWEI Mate XT 2, importarlo dalla Cina ...
Orpheus, la calza smart che usa la music...
La causa antitrust di Musk contro Apple ...
Nitter archiviato e XCancel sospeso tre ...
CPU RISC-V e GPU AMD insieme: la demo ch...
Un Raspberry Pi 5 e oltre 800 illustrazi...
Una giornata di Claude Code consuma più ...
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: 10:17.


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