PEGAR PARTE DE UMA STRING
Gostaria de saber como faco pra pegar somente a hora desta frase. blabla bla Chegou às [txt-color=#e80000]10:00[/txt-color], gostaria de pegar somente o horario da frase.
Uma dica seria vc ter a pegar os dois caracteres antes e os dois subsequentes a cada ocorrência do caracter : na frase e verificar se o resultado é uma hora válida
Exemplo:
Imagine a seguinte frase:
Ele chegou à s 10:30 da noite e falou: Chego a hora que quiser. Amanhã chegarei à s 01:00
Vc iria separa assim:
10:30
ou: C
01:00
Daà é só percorrer pelo resultado e eliminar aqueles que não forem hora
Se precisar de um exemplo de código, fala aÃ
ou também pode fazer assim:
dim A() as string = frase.split([Ô] [Ô])
For each S as string in A
If Isdate(s) then
é uma hora válida
Endif
Next
Exemplo:
Imagine a seguinte frase:
Ele chegou à s 10:30 da noite e falou: Chego a hora que quiser. Amanhã chegarei à s 01:00
Vc iria separa assim:
10:30
ou: C
01:00
Daà é só percorrer pelo resultado e eliminar aqueles que não forem hora
Se precisar de um exemplo de código, fala aÃ
ou também pode fazer assim:
dim A() as string = frase.split([Ô] [Ô])
For each S as string in A
If Isdate(s) then
é uma hora válida
Endif
Next
Percorra a frase verificando se cada dÃgito é um número ou se é dois pontos. Se for, adicione na nova string.
Estava usando o split mas em alguns casos esta desta forma Chegou ás 02:00hs queria somente pegar o horario se tiver algo agradeceria tentei com split, deu certo de até certo ponto.
Fiz desta forma, mais em alguns casos a hora esta desta forma 02:00hs ou 02:00h ai ele pega desta forma..queria tirar o hs ou h quando tiver tentei algumas coisas.
If palavra.Contains([Ô]Chegou às [Ô]) Then
Dim withParts As String = palavra
Dim withoutParts As String = Replace(withParts, [Ô]Chegou às [Ô], [Ô][Ô])
ListView2.Items.Add(ListView1.Items(i).SubItems(1).Text).SubItems.Add(withoutParts)
End If
If palavra.Contains([Ô]Chegou às [Ô]) Then
Dim withParts As String = palavra
Dim withoutParts As String = Replace(withParts, [Ô]Chegou às [Ô], [Ô][Ô])
ListView2.Items.Add(ListView1.Items(i).SubItems(1).Text).SubItems.Add(withoutParts)
End If
dim A() as string = frase.split([Ô] [Ô])
For each S as string in A
If s.contais([Ô]:[Ô]) then
dim B() as string = S.Split([Ô]:[Ô])
Hora = B(0).substring(B(0).length-2) + [Ô]:[Ô] & b(1).substring(0,2)
Endif
Next
Assim vai dar certo, pode testar aÃ
For each S as string in A
If s.contais([Ô]:[Ô]) then
dim B() as string = S.Split([Ô]:[Ô])
Hora = B(0).substring(B(0).length-2) + [Ô]:[Ô] & b(1).substring(0,2)
Endif
Next
Assim vai dar certo, pode testar aÃ
Citação::
dim A() as string = frase.split([Ô] [Ô])
For each S as string in A
If s.contais([Ô]:[Ô]) then
dim B() as string = S.Split([Ô]:[Ô])
Hora = B(0).substring(B(0).length-2) + [Ô]:[Ô] & b(1).substring(0,2)
Endif
Next
Assim vai dar certo, pode testar aÃ
Obrigada...
Tópico encerrado , respostas não são mais permitidas