|
Abyste převedl Stringové pole do Stringu a zase zpět do pole (někdy je to zapotřebí), musíte si zvolit nějaký znak, který se v položkách pole rozhodně neobjeví (středník/vlnovka.. já používám ControlChars.Cr - enter). Potom projedete celé pole pomocí For Each a vložíte do výsledného řetězce vždy položku + váš znak:
Dim pole() As String = {"jedna", "dva", "tri", "ctyri"}
Dim vysledek As String = ""
Dim i As Integer = 0
For Each p As String In pole
If i <> 0 Then vysledek += ControlChars.Cr 'Toto zajistí, že se rozdělovač vloží jen mezi položky
vysledek += p 'Vložíme položku
i += 1 'Přičteme...
Next p
Tento kód vám vygeneruje řetězec:
jedna
dva
tri
ctyri
a pro znovusložení do pole je třeba zavolat metodu Split:
Dim pole2() As String = vysledek.Split(ControlChars.Cr)
Hodně štěstí
|