SEPARAR STRING

THAINE 25/04/2012 11:27:20
#400730
Bom Dia
hj estou dinovo precisando da ajuda de vcs

eu tenho no datagrid uma hora cadastrada por exemplo [Ô]10:00[Ô]
quando o usuario clicar em editar, eu preciso que a hora [Ô]10[Ô] aparece em um textbox e os min [Ô]00[Ô] em outro, nesse código abaixo ele aparece [Ô]10[Ô] e [Ô]00[Ô] no mesmo texbox.

Dim str As String = dgvTurma.SelectedRows.Item(0).Cells(4).Value
Dim palavras As String() = str.Split(New Char() {[Ô]:[Ô]})
Dim palavra As String
For Each palavra In palavras
frmCad_Turmas.txtHoraI.Text = palavra
frmCad_Turmas.ShowDialog()
Next

Alguém pode me ajudar ?
ALTAIR148 25/04/2012 11:41:29
#400734 Resposta escolhida
Eu utilizo essa formula abaixo para separar

 Dim arrStr As String() = varinicial.Split(CChar([Ô]:[Ô]))
 Dim d1 As New TimeSpan(CInt(arrStr(0)), CInt(arrStr(1)), CInt(arrStr(2))) [ô] Horas a serem somadas 1
THAINE 25/04/2012 11:46:37
#400735
da erro
[Ô]O índice estava fora dos limites da matriz.[Ô]
ALTAIR148 25/04/2012 11:56:45
#400736
Como você fez? Quando ocorrer algum erro é interessante você postar o seu código para podermos ver onde está o erro,
THAINE 25/04/2012 12:00:20
#400737
eu apenas copiei e colei, não entendi esse código
Dim arrStr As String() = dgvTurma.SelectedRows.Item(0).Cells(4).Value.Split(CChar([Ô]:[Ô]))
Dim d1 As New TimeSpan(CInt(arrStr(0)), CInt(arrStr(1)), CInt(arrStr(2)))
ALTAIR148 25/04/2012 12:07:15
#400738
Tente assim: Tem que adaptar o código a sua necessidade.
  Dim varinicial As String
        varinicial = [Ô]10:00[Ô]
        Dim arrStr As String() = varinicial.Split(CChar([Ô]:[Ô]))
        Dim d1 As New String((arrStr(0)))
        MsgBox(d1)


Dessa forma ele vai pegar o primeiro numero antes do [Ô]:[Ô], por exemplo vc quisesse o primeiro após os dois pontos seria:

  Dim varinicial As String
        varinicial = [Ô]10:00[Ô]
        Dim arrStr As String() = varinicial.Split(CChar([Ô]:[Ô]))
        Dim d1 As New String((arrStr(1)))
        MsgBox(d1)


e por ai vai....
THAINE 25/04/2012 12:14:35
#400740
Deu certo, muito obrigada pela ajuda mesmo

Dim varinicial As String
varinicial = dgvTurma.SelectedRows.Item(0).Cells(4).Value
Dim arrStr As String() = varinicial.Split(CChar([Ô]:[Ô]))
Dim d1 As New String((arrStr(0)))
Dim d2 As New String((arrStr(1)))
frmCad_Turmas.txtHoraI.Text = d1
frmCad_Turmas.txtMinI.Text = d2

ATE MAIS
Tópico encerrado , respostas não são mais permitidas
Voltar