Comando

[jooey]

Boa tarde...

Sou iniciante no VB, na minha empresa estou fazendo uma rotina de migração de um banco de dados em access para o da minha empresa que é tambem em access

No cadastro dos produtos do banco do cliente, a descrição do produto e o codigo estão no mesmo campo da tabela , separados por "/", preciso separar os dados para a descrição e o codigo do produto.

vlw desde agora

Boa tarde

[kuroi]

o modo mais facil seria assim:

Dim x() as String

x = Split(rs!Campo, "/")

MsgBox "Código: " & x(0)
MsgBox "Descrição: " & x(1)
[/code]

[jooey]

ok,essa rotina funcionou, vlw

mas eu continuo com um problema

=/

em alguns cadastros tem essa divisão..

em otros não..

existe algum if que eu possa por pra fazer a rotina só quando tiver a barra?

vlw desde já

boa tarde

[kuroi]

tenta:

Dim x() as String

If InStr(rs!Campo, "/") = 0 Then
     MsgBox "O Conteúdo do Campo é " & rs!Campo
Else
     x = Split(rs!Campo, "/")

     MsgBox "Código: " & x(0)
     MsgBox "Descrição: " & x(1)
End If[/code]

[jooey]

ok, funcionou

x]

vlw kuroi pela força

muito bom esse forum...

vo começar a frequentar mais

falou...abraço

[William Rodrigues]

Salve!

Use o LBound() e UBound() para acessar todas as posições do vetor, se necessário.

Abraços,

William Rodrigues

[jooey]

boa tarde

William..

você poderia me passar um exeplo desse comando, por favor....?

vlw...teh+

[William Rodrigues]

Salve!

Claro, posso sim. Segue um modelo:

Dim x() as String

If InStr(rs!Campo, "/") = 0 Then
     MsgBox "O Conteúdo do Campo é " & rs!Campo
Else
     x = Split(rs!Campo, "/")

     For i = LBound(x) To UBound(x)
           Msgbox "Valor " & v(i)
     Next
End If

Usei o LBound para acessar o primeiro índice do vetor (no caso, zero) e o UBound para acessar o maior índice. Pode acontecer de você tentar ler um determinado arquivo ou uma string com muitos delimitadores (/ no seu caso) e não saberá quantas posições terá seu vetor ou terá que saber exatamente quantos delimitadores existem.

Enfim, usando o LBound() e UBound() você acessa do primeiro ao último índice do seu vetor, independente de seu tamanho.

Espero que tenha ajudado. Qualquer coisa é só falar.

Abraços,

William Rodrigues

[jooey]

Eae Wiiliam,

meu...minha duvida é o seguinte...

antes da / esta a descrição da peça... e depois esta o codigo...

eu preciso searar estes dados para joga-los em tabelas diferentes...

como ficaria..eu tenho uma ideia do codigo mais num está dando certo..

Como eu faço pra dividir este dados e joga-los no campo referente somente os dados que eu quero?

falou....teh+

[kuroi]

Eae Wiiliam,

meu...minha duvida é o seguinte...

antes da / esta a descrição da peça... e depois esta o codigo...

eu preciso searar estes dados para joga-los em tabelas diferentes...

como ficaria..eu tenho uma ideia do codigo mais num está dando certo..

Como eu faço pra dividir este dados e joga-los no campo referente somente os dados que eu queto?

falou....teh+

o que eu disse aqui:

tenta:

Dim x() as String

If InStr(rs!Campo, "/") = 0 Then
     MsgBox "O Conteúdo do Campo é " & rs!Campo
Else
     x = Split(rs!Campo, "/")

     MsgBox "Código: " & x(0)
     MsgBox "Descrição: " & x(1)
End If[/code]
não resolve??
Enfim, usando o LBound() e UBound() você acessa do primeiro ao último índice do seu vetor, independente de seu tamanho.
hã... o primero indice vai ser sempre 0 não?? tipo, essa funcao lbound seria meio inutil, não??

[jooey]

Kuroi, tentei fazer o codigo que você me passou e deu erro..

vê se está certo o jeito que eu to fazendo:

Dim x As String
Do While Not Itens_do_orcamento_de_fab.EOF
   If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
      MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
   Else
      x = Split(Itens_do_orcamento_de_fab!Descrição1, "/")

      MsgBox "Descrição" & x(0)
      MsgBox "Codigo" & x(1)
   End If

o erro que da é no "MsgBox "Descrição" & x(0)" pra ser mais exato no x

Compile error:

Expected array

Clicando no ajudae ele fala:

The MSDN collection does not exist.Please reinstall MSDN.

:blink:

disculpa fik enchendo o saco.

é que eu preciso disso urgente e so iniciante no VB

vlw...ateh+

[kuroi]

está errado na hora de criar. seria assim:

Dim x() As String

[jooey]

ok, ficou assim agora

Dim x() As String
Do While Not Itens_do_orcamento_de_fab.EOF
   If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
      MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
   Else
      x = split(Itens_do_orcamento_de_fab!Descrição1, "/")

      MsgBox "Descrição" & x(0)
      MsgBox "Codigo" & x(1)
   End If

agora compile normal.

mas na hora de roda da o erro

run timr error '94:

Invalid use of Null

:(

[lcs_sp]

Deve ter algum registro sem um dos dados

assim: dados/

[jooey]

vlw.

era isso mesmo..

o primeiro registr tava vazio..

agora pra mim joga nos campos seria mais ou menos assim?

Dim x() As String
Do While Not Itens_do_orcamento_de_fab.EOF
   If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
      MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
   Else
      x = split(Itens_do_orcamento_de_fab!Descrição1, "/")

      Pecas.Addnew
      Pecas![Codigo peca] = x(1)
      Pecas![Descrição peça] = x(0)
      Pecas.Update
   End If

certo?

[William Rodrigues]

hã... o primero indice vai ser sempre 0 não?? tipo, essa funcao lbound seria meio inutil, não??

Não!

com Option Base 1 você muda o índice padrão dos vetores de zero para 1. :D

jooey

Seria isso mesmo!

Qualquer coisa é só falar.

Abraços,

William Rodrigues

[jooey]

Bom William..

eu usei o exemplo do kuroi...

na verdade porque quando eu usava o seu modelo

Dim x() As String
Do While Not Itens_do_orcamento_de_fab.EOF
   If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then

      GoTo Leroutro

   Else
      x = Split(Itens_do_orcamento_de_fab!Descrição1, "/")

      For i = LBound(x) To UBound(x)
            MsgBox "Codgio" & v(i)

   End If

dava erro

Compile error:

Variable not defined

no For i...pra ser mais exato no "i"

bom d qualquer maneira já resolvi o problema

falou pela força d tdo mundo

abraços

[William Rodrigues]

Salve!

No caso, a variável "i" não está declarada. Você deve estar utilizando o Option Explicit que faz com que todas as variáveis sejam declaradas.

Declarando Dim i As Integer antes de sua utilização. ;)

Beleza brother, qualquer coisa é só me avisar.

Abraços,

William Rodrigues

[jooey]

é..

depois eu pensei nisso..

ai fucionou

x]

vlw pela força cara..

abraços..teh+

[Roney]

Somente uma observação... nem sempre o primeiro indice de uma Matriz é 0.

Há maneiras de você informar ao VB (pelo que sei na versão .net isso não é mais possível), por exemplo, que inicie todas as matrizes pelo elemento 1.

A função LBound() é muito útil por isso.

Abs,

[kuroi]

Somente uma observação... nem sempre o primeiro indice de uma Matriz é 0.

Há maneiras de você informar ao VB (pelo que sei na versão .net isso não é mais possível), por exemplo, que inicie todas as matrizes pelo elemento 1.

A função LBound() é muito útil por isso.

Abs,

sim... como o william disse aqui: http://scriptbrasil.com.br/forum/index.php...st&p=375838