PDA

View Full Version : [Visual Basic 2005] Divisione di stringhe...


Falchetto 1991
01-11-2007, 14:23
...tramite separatore ritorno a capo

allora raga mi servirebbe un codice che una volta datogli come input questo:

Contenuto Variabile CLIENTE

Cognome
Nome
Telefono
Indirizzo
Data

risultato in una lablel box:

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

http://img379.imageshack.us/img379/2138/immagineup9.jpg (http://imageshack.us)


e mi restituisca i singoli valori mettendoli ognuno in una label:

?

http://img363.imageshack.us/img363/976/immagineapu3.jpg (http://imageshack.us)

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 :help:?

Falchetto 1991
02-11-2007, 00:39
Up

okay
02-11-2007, 00:54
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

Falchetto 1991
02-11-2007, 09:32
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à :D

71104
02-11-2007, 09:46
Una similitudine della stroke del c. non esiste nessuna funzione stroke in C

Falchetto 1991
03-11-2007, 15:02
Ok grazie per la risposta ;)
appena lo metto in pratica ti farò sapere come và :D

Autoquote per dire che ho risolto! grazie Okay

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