PEGAR PARTE DE UMA STRING

MOREIRA 30/01/2017 09:43:51
#471134
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..

NICKOSOFT 30/01/2017 09:57:30
#471135
se for pensar nos : como limite ou mesmo a palavra ref: o Split resolve seu problema....
MOREIRA 30/01/2017 09:59:35
#471136
apenas o limite mesmo, ou seja, os números, NICKOSOFT

obs, nem todas as ref, tem a mesma quantidade de números..
NICKOSOFT 30/01/2017 10:55:04
#471139
sem problema....
  
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
MOREIRA 30/01/2017 11:09:09
#471142
FUNCIONARIA AQUI.. ?

Sql = [Ô]INSERT INTO LK_PRODUTOFORNEC (CODPRODFORNEC) VALUES ( [ô][Ô] & _
FlexGrid.cell(i, 3).text & [Ô][ô])[Ô]

NICKOSOFT 30/01/2017 11:36:34
#471144
antes da linha do insert vc joga numa variável a parte q quer e usa a variável dentro do insert
FABRICIOWEB 30/01/2017 12:21:56
#471146
Resposta escolhida
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
MARCELO.TREZE 30/01/2017 22:37:59
#471167
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))


Tópico encerrado , respostas não são mais permitidas