Copiar até um determinado elemento da string

[Kadov 1]

Olá, turma do fórum.

Estou encarando um pequeno probleminha.

Não sei como copiar um pedaço da string até um determinado caracter da própria string.

Por exemplo, a string é: AbcAbcAbcCde. Como eu faria para copiar tudo até o 3º "c" ? Sem contar as posições fixas das letras. Pois a mesmas poderiam mudar.

[He B TeMy 37]

Dim temp as Integer = string.indexof('c')
temp = string.indexof('c', temp +1)
Dim resultado as integer = string.indexof('c', temp +1)

Lida com erros a não ser que saibas que a string têm três 'c' .

Edited January 26, 2016 by He B TeMy
Identificar correctamente o bloco de código!

[Kadov 1]

Não funcionou muito bem. O resultado me mostrado é -1. Aplicado ao exemplo exposto.

Como proceder?

Edited January 26, 2016 by Kadov

[He B TeMy 37]

Fiz uma edit acima, vê se dá.

Para copiares tens de fazer substring, aquilo é só para veres até que index copiar.

[ribeiro55 47]

Podes generalizar a coisa com uma funçãozita não-recursiva, para conseguires entender:

(só precisas da Function CadeiaAte. O resto é contexto de uma ConsoleApp, para teres a "full picture")

Module Module1

   Sub Main()
       Dim cadeia As String = "AbcAbcAbcCde"
       Console.WriteLine(CadeiaAte(cadeia, "c", 3))
       Console.ReadKey()
   End Sub

   Public Function CadeiaAte(cadeia As String, caractere As String, repeticao As Integer)
       If cadeia.ToCharArray().Count(Function(c) c = "c") < repeticao Then
           Return cadeia
       End If
       Dim Resultado As String = String.Empty
       For Each c As Char In cadeia.ToCharArray()
           If repeticao = 0 Then Exit For
           If c.ToString() = caractere Then repeticao -= 1
           Resultado &= c.ToString()
       Next
       Return Resultado
   End Function

End Module

Se usares muito até podes fazer uma extensão para a classe String, que depois usas directamente nas strings, por exemplo:

Dim cadeia As String = "AbcAbcAbcCde"
cadeia.CadeiaAte("c",3)

[Kadov 1]

He B TeMy, tentei novamente e não obtive sucesso.

ribeiro55, obrigado!! Pelo seu método, funcionou!!

Pode dar closed.