strings vb6

.sys

Power Member
pessoal nova duvida -.-
eu tou a fazer um "array virtual" dentro da base dados que o obejctivo seja ficar assim

14,15,1,30, (ids dos produtos)
1,2,1,3 (respectivas quantidades)
isto vai servir para guardar dados daquela respectiva compra , eu ja consigo guardar os id's , codigo :

Dim texto As String, adicionar As String
texto = Text1.Text
procurar = conta.Recordset![id]
encontrar = InStr(texto, procurar)
If encontrar = 0 Then
adicionar = conta.Recordset![id]
Text1.Text = Text1.Text + adicionar + ","
End If

(tou a usar textbox , para verificar se o faz correctamente)

so que agora o das quantidades nao consigo pq nao sei trabalhar muito bem cm strings no vb para o qe preciso :s
eu fiz aqui basicamente o qe necessito em algoritmia

procurar na string dos ids o id
se existir
ver posicao do id na string
ir a posicao da quant na string
adicionar mais 1 a quant
senao
adicionar em ultimo
fim

algém tem alguma ideia como procurar o id e ver em qe posicao esta ? (posicao e defenida pela virgula qe fica a frente do id ex: 14,16,30, (o id 30 ta na 3 posicao)
e depois tambm ir a posicao das quantidades (se conseguirem o 1 codigo e facil la ir ) o meu problem e depois saber quantos numeros tao nessa posicao (entre as 2 virgula) e apagar esse numero e adicionar um novo numero com +1 de quantidade (se e qe percebem) :s

eu sei qe é muito trabalho , nao preciso qe me façam tipo o codigo todo mas me deiem umas luzes sff :s
 
Back
Topo