Duvida vb

[Arknoid]

Então amigos estou começando a Aprender Visual Basic e estou com uma Duvida

eu criei uma caixa de texto e éla é (( document.text ))Então anugis

e éla é uma lista de codigos assim

<object posX="-1435.750000" posY="-652.664063" posZ="1054.937500" rotX="0" rotY="0" rotZ="0" model="13662" id="object3" />

queria pegar esses dados da lista de codigos e converter para isto >>>>

CreateObject(model,posX,posY,posZ,RotX,RotY,RotZ);

mais não conheco muitas Funcoes do vb

eu já fiz a parte de abrir o arquivo de texto e imprime os codigos na Document.text ai queria que o tal codigo <object etc... para CreateObject etc.....

eu Fiz uma nova RichText em baixo ((Saida.text))

queria clicar no button convert e os Codigos se converter do Document.text <object etc.... para o Saida.text CreateObject etc....

alguém me sugere alguma funcao ou algo para estudar para eu poder fazer issO? n qro codigos prontos só Indicação de algo para estudar já esta de bom tamanho

[Densyy]

Kara , criei uma funçãozinha pra você aqui

primeiro declarei uma variavel q no caso vai armazenar o conteudo do script

no caso "<object posX="-1435.750000" posY="-652.664063" posZ="1054.937500" rotX="0" rotY="0" rotZ="0" model="13662" id="object3" />"

Dim Texto As String

Depois a função q vai filtrar o valor de texto eu coloquei como exemplo o valor q vai ser filtrado em um textbox basta você colocar essa code em um botão ou algo do genero

Dim STR() As String
Dim a1, b1, c1, d1, e1, f1, g1 As String
Dim a2, b2, c2, d2, e2, f2, g2 As Integer
Dim a3, b3, c3, d3, e3, f3, g3 As String

Texto = Text1.Text

STR = Split(Texto, "model=")
a1 = STR(1)
STR = Split(a1, "id=")
a2 = Len(STR(0))
a3 = Mid(STR(0), 2, a2 - 3)
'----------------------
STR = Split(Texto, "posX=")
b1 = STR(1)
STR = Split(b1, "posY=")
b2 = Len(STR(0))
b3 = Mid(STR(0), 2, b2 - 3)
'-----------------------
STR = Split(Texto, "posY=")
c1 = STR(1)
STR = Split(c1, "posZ=")
c2 = Len(STR(0))
c3 = Mid(STR(0), 2, c2 - 3)
'-----------------------
STR = Split(Texto, "posZ=")
d1 = STR(1)
STR = Split(d1, "rotX=")
d2 = Len(STR(0))
d3 = Mid(STR(0), 2, d2 - 3)
'----------------------
STR = Split(Texto, "rotX=")
e1 = STR(1)
STR = Split(e1, "rotY=")
e2 = Len(STR(0))
e3 = Mid(STR(0), 2, e2 - 3)
'----------------------
STR = Split(Texto, "rotY=")
f1 = STR(1)
STR = Split(f1, "rotZ=")
f2 = Len(STR(0))
f3 = Mid(STR(0), 2, f2 - 3)
'----------------------
STR = Split(Texto, "rotZ=")
g1 = STR(1)
STR = Split(g1, "model=")
g2 = Len(STR(0))
g3 = Mid(STR(0), 2, g2 - 3)

MsgBox "CreateObject(" & a3 & "," & b3 & "," & c3 & "," & d3 & "," & e3 & "," & f3 & "," & g3 & ");"

Espero ter Ajudado