Visual Basic - Operaciones con String VB6

Life is soft - evento anual de software empresarial
   
Vista:

Operaciones con String VB6

Publicado por Manu (4 intervenciones) el 28/04/2009 17:57:29
Hola, en primer lugar soy Manu Escaño (de Vélez-Málaga), y mi pregunta es...

estoy haciendo un programa en VB6 que busca los archivos en una ubicacion determinada
y los mete en un STRING llamado "Ubicacion" del siguiente modo...

Ubicacion = Dir$("c:PELICULAS*.avi")

bueno, ahora dentro de "Ubicacion" tengo "2 Policias Rebeldes [DVDRIP] (BRDRIP).avi" vale, hasta aquí genial, pero necesito desmembrar este STRING en varios, necesito cortar antes del primer corchete, para meterlo en un STRING "Nombre" y lo que hay dentro de los corchetes en otro llamado "cVideo" y lo de los parentesis en otro llamado "cAudio".

Me podeis ayudar con las operaciones con string
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Operaciones con String VB6

Publicado por Pedro Luis (878 intervenciones) el 28/04/2009 18:30:45
Instr(variable,Caracter) te da el lugar en el que se encuentra la primea ubicacion de caracter.

Con Mid(Ubicacion,1,Instr(Ubicacion,"[")-1) tienes la cadena hasta el corchete
Con Mid(Ubicacion,Instr(Ubicacion,"[")+1,len(Ubicacion)-Instr(Ubicacion,"[") tienes el resto, está algo complicado pero es yo no uso left ni rigth.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Operaciones con String VB6

Publicado por Manu (4 intervenciones) el 28/04/2009 19:00:50
Gracias, pero como era en tres partes he modificado lo que me has dicho y me ha quedado asi mira...

Name= Mid(Ubicacion, 1, InStr(Ubicacion, "[") - 1)
cVideo = Mid(Ubicacion, InStr(Ubicacion, "[") + 1, 6)
CAudio = Mid(Ubicacion, InStr(Ubicacion, "[") + 10, 3)

muchisimas gracias...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Operaciones con String VB6

Publicado por P3L30N2009 (701 intervenciones) el 28/04/2009 18:57:08
Bueno, pues utilizando unas cuantas 'Strings Functions'

Dim Nombre As String, cVideo As String, cAudio As String
Dim iPos As Integer, iPos2 As Integer

iPos = InStr(1, Ubicacion, "[") - 1
Nombre = Left(Ubicacion, iPos)

iPos2 = InStr(iPos, Ubicacion, "]") + 1
cVideo = Mid(Ubicacion, iPos, iPos2 - iPos)

cAudio = Mid(Ubicacion, InStrRev(Ubicacion, "("), Len(Ubicacion))
cAudio = Left(cAudio, InStr(cAudio, ".") - 1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Operaciones con String VB6

Publicado por Manu (4 intervenciones) el 28/04/2009 19:36:35
Joper, esto es genial. me gusta mucho esta forma, me da mucho juego.

mil gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar