PEGAR PARTE DE UMA STRING
Bom dia,
tenho a seguinte situação,
LOC HID PAIXAO ONLY INSPIRAD 200ML Ref:11808
OLEO P CORPO MURIEL AM D C COL100ML Ref:11943
UMIDIFIC MURIEL UMIDILIZ BABY 150ML Ref:228607
COND NEUTROX 1 TRAD 230ML Ref:2382
Listada em uma grid, preciso pegar só o número da Ref: e dá um insert em uma tabela..
tenho a seguinte situação,
LOC HID PAIXAO ONLY INSPIRAD 200ML Ref:11808
OLEO P CORPO MURIEL AM D C COL100ML Ref:11943
UMIDIFIC MURIEL UMIDILIZ BABY 150ML Ref:228607
COND NEUTROX 1 TRAD 230ML Ref:2382
Listada em uma grid, preciso pegar só o número da Ref: e dá um insert em uma tabela..
se for pensar nos : como limite ou mesmo a palavra ref: o Split resolve seu problema....
apenas o limite mesmo, ou seja, os números, NICKOSOFT
obs, nem todas as ref, tem a mesma quantidade de números..
obs, nem todas as ref, tem a mesma quantidade de números..
sem problema....
vai retornar assim
Fonte
STRNomes = [Ô]Ana,João,Pedro,Maria[Ô]
vetorNomes = split(STRNomes,[Ô],[Ô])
vai retornar assim
vetorNomes(0) - [Ô]Ana[Ô]
vetorNomes(1) - [Ô]João[Ô]
vetorNomes(2) - [Ô]Pedro[Ô]
vetorNomes(3) - [Ô]Maria[Ô]
Fonte
FUNCIONARIA AQUI.. ?
Sql = [Ô]INSERT INTO LK_PRODUTOFORNEC (CODPRODFORNEC) VALUES ( [ô][Ô] & _
FlexGrid.cell(i, 3).text & [Ô][ô])[Ô]
antes da linha do insert vc joga numa variável a parte q quer e usa a variável dentro do insert
dim dadosgrid as string
dadosgrid = FlexGrid.cell(i, 3).text
dadosgrid = Mid(dadosgrid, InStr(1, dadosgrid, [Ô]:[Ô]) + 1)
Sql = [Ô]INSERT INTO LK_PRODUTOFORNEC (CODPRODFORNEC) VALUES ( [ô][Ô] & dadosgrid & [Ô][ô])[Ô]
se der certo finalize o topico
dadosgrid = FlexGrid.cell(i, 3).text
dadosgrid = Mid(dadosgrid, InStr(1, dadosgrid, [Ô]:[Ô]) + 1)
Sql = [Ô]INSERT INTO LK_PRODUTOFORNEC (CODPRODFORNEC) VALUES ( [ô][Ô] & dadosgrid & [Ô][ô])[Ô]
se der certo finalize o topico
colega use a função instr que irá buscar por .ref. e indicar a posição pegue a parte desejada com mid e pronto lançar da tabela fica por sua conta.
exemplo:
Dim text As String
texto = [Ô]LOC HID PAIXAO ONLY INSPIRAD 200ML Ref:11808[Ô]
MsgBox Mid(texto, InStr(1, texto, [Ô]Ref:[Ô]), Len(texto))
exemplo:
Dim text As String
texto = [Ô]LOC HID PAIXAO ONLY INSPIRAD 200ML Ref:11808[Ô]
MsgBox Mid(texto, InStr(1, texto, [Ô]Ref:[Ô]), Len(texto))
Tópico encerrado , respostas não são mais permitidas