|
|||||||
|
|
|
![]() |
|
|
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 14: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 11: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: 04:02.












?










