Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Deep Tech Revolution: così Area Science Park apre i laboratori alle startup
Deep Tech Revolution: così Area Science Park apre i laboratori alle startup
Siamo tornati nel parco tecnologico di Trieste per il kick-off del programma che mette a disposizione di cinque startup le infrastrutture di ricerca, dal sincrotrone Elettra ai laboratori di genomica e HPC. Roberto Pillon racconta il modello e la visione
HP OMEN MAX 16 con RTX 5080: potenza da desktop replacement a prezzo competitivo
HP OMEN MAX 16 con RTX 5080: potenza da desktop replacement a prezzo competitivo
HP OMEN MAX 16-ak0001nl combina RTX 5080 Laptop e Ryzen AI 9 HX 375 in un desktop replacement potente e ben raffreddato, con display 240 Hz e dotazione completa. Autonomia limitata e calibrazione non perfetta frenano l'entusiasmo, ma a 2.609 euro è tra le proposte più interessanti della categoria.
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
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


Deep Tech Revolution: così Area Science Park apre i laboratori alle startup Deep Tech Revolution: così Area Science P...
HP OMEN MAX 16 con RTX 5080: potenza da desktop replacement a prezzo competitivo HP OMEN MAX 16 con RTX 5080: potenza da desktop ...
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...
Il nuovo MacBook Neo ha una memoria SSD ...
Xbox Project Helix, le prime specifiche ...
Annunci pubblicitari sulla TV quando cam...
Prezzi aumentati del 50% durante la nott...
Sconti studiati per singolo utente: Sony...
Addio alla Kia Niro EV, il crossover sar...
Apple crede nel suo iPhone Fold: la prod...
Fortnite, un nuovo listino per i pacchet...
Ecco i nuovi Sonos Play ed Era 100 SL: d...
Razer svela il futuro del gaming potenzi...
Tre robot Narwal in offerta: pulizia aut...
Gracenote denuncia OpenAI: ChatGPT addes...
Microsoft AI Tour Milano: dall'efficienz...
Asus ExpertBook Ultra: Intel Core Ultra ...
Intel presenta i processori desktop Core...
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: 06:28.


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