Jump to content
Sign in to follow this  
pbreda

Separação de uma String em VB6.0 (Urgente)

Recommended Posts

pbreda

Boas, gostaria de me informar como separar uma string com uma expressão de Separação.

Exemplo: "Olá;Mundo"

Olá---> Parte1

Mundo--->Parte2

;--->Separador

Cumprimentos,

pbreda


Qualquer coisa esfrega a lampada!!!Visite Banco de Software e desfrute do software disponível xD

Share this post


Link to post
Share on other sites
seesharptec

Tens a função split.

Da uma vista de olhos aqui

http://vb-helper.com/howto_multiline_split.html


SeeSharpTec

Share this post


Link to post
Share on other sites
pbreda

Não é possivel fazerem me um exemplo é que o codigo não é muito explicito.....


Qualquer coisa esfrega a lampada!!!Visite Banco de Software e desfrute do software disponível xD

Share this post


Link to post
Share on other sites
seesharptec

Dim entry() As String

Dim Parte1 as string

Dim Parte2 as string

entry = Split("Olá;Mundo", ";", , vbTextCompare)

Parte1 = entry(0)

Parte2 = entry(1)


SeeSharpTec

Share this post


Link to post
Share on other sites
NuGuN

Boas...

Eu normalmente para fazer isso trabalho com varias funções. Por exemplo:

Dim var1 As String
Dim tmp As Integer
Dim var2, var3 As String

var1 = "ola;mundo"

tmp = InStr(var1, ";")

var2 = Left(var1, (tmp - 1))

var3 = Right(var1, (Len(var1) - tmp))

E ficas com o "ola" na variavel "var2E e o "mundo" na variável "var3"

Cumps

Share this post


Link to post
Share on other sites
NuGuN

éééélllaaaa!!!!

Esse split não conhecia eu  :dontgetit:  É bem porreiro é, poupa algum trabalho em certas circunstancias!

Cumps

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.