|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
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 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. |
![]() |
![]() |
![]() |
#2 |
Bannato
Iscritto dal: Jun 2007
Messaggi: 780
|
Up
|
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: Feb 2002
Messaggi: 906
|
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. |
![]() |
![]() |
![]() |
#4 | |
Bannato
Iscritto dal: Jun 2007
Messaggi: 780
|
Quote:
![]() appena lo metto in pratica ti farò sapere come và ![]() |
|
![]() |
![]() |
![]() |
#5 |
Bannato
Iscritto dal: Feb 2005
Città: Roma
Messaggi: 7029
|
|
![]() |
![]() |
![]() |
#6 | |
Bannato
Iscritto dal: Jun 2007
Messaggi: 780
|
Quote:
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 |
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 14:25.