Definice pole obsahem proměnné – Visual Basic – Fórum – Programujte.com

Dobrý den,

mám funkční skript:

Dim pole() As Object
pole = {"prvni", 2, "zase, text"}
MsgBox(pole(0) & " " & pole(1) & " " & pole(2))

a potřeboval bych aby fungovalo:

Dim pole() As Object
Dim def_pole As String
def_pole = """prvni"", 2, ""zase, text"""
pole = {def_pole}   ' toto opravit 
MsgBox(pole(0) & " " & pole(1) & " " & pole(2)) ' Nejde. Dá se vypsat pouze celé najednou MsgBox(pole(0))

jednoduše potřebuji naplnit pole obsahem proměnné. Přes split to nejde, problém je s čárkou v : "zase, text".

Díky za každé postrčení

Dá se to, jakž takž snadno, za předpokladu že aspoň ta struktura dat v řádku je pevná. Tedy vždycky
""text1"", číslo, ""text2"".

Takže pak si to můžeš sama "rozkouskovat" s pomocí metody Instr , resp.  a metod Left, Mid, Right.
Asi takhle

Dim pole(3) As Object
Dim def_pole As String
def_pole = """prvni"", 2, ""zase, text"""
dim i,j,k as integer
i=Instr (2,def_pole,"""")
pole(0)=Trim(Left(def_pole,i))
j=Instr (i,def_pole,",")
k=Instr (j+1,def_pole,",")
pole(1)=Trim(Mid(def_pole,j+1,k-j-1))
pole(2)=Trim(Mid(def_pole,k+1))

#1 Jirka
Potřebuješ načíst formát CSV. To by ti mohlo pomoct v googlení.

#1 Jirka
Dal jsem si tu práci a googlil CSV parser pro VB. Nic. Pouze primitivní parsování pomocí Split(). Jako kdyby se formát CSV nepoužíval. MS zde evidentně zaspal, neboť pro jiné jazyky to bývá běžně implementováno v systémových knihovnách.

Zřejmě si to budeš muset sám parsovat nějakým konečným automatem.

Díky za pomoc.

Jen doplním, že struktura dat v řádku se mění. Elegantní řešení jsem nenašel, naštěstí potřebuji ze struktury jen něco, takže to vypíchnu přes substring a split .

Jirka