FoxPro/Visual FoxPro - Separar caracteres

 
Vista:

Separar caracteres

Publicado por javier (90 intervenciones) el 19/12/2006 21:18:17
hola amigos
comohago para separar una palabra en 2 cuando llega aun determinado carcter.

ejemplo

tengo 123456789-9 quieros separarlo en 2 campos cuando llege al al guion y hacer desaparecer este.

campo 1 campo 2
123456789 9


Gracias
Atte Javier
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:Separar caracteres

Publicado por jorge (423 intervenciones) el 19/12/2006 21:20:38
Puedes usar funciones como RAT(), AT(), estas te buscan en una cadena la primera posicion de un determinado caracter...
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:Separar caracteres

Publicado por Plinio (7841 intervenciones) el 20/12/2006 01:01:52
En el Inputmask del textbox puedes hacer algo como esto
99999999 9
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:Separar caracteres

Publicado por sergio (737 intervenciones) el 20/12/2006 15:57:36
que queres hacer
ya que das a enteder varia posibilidades
si queres separar el valor de una variable en dos

1
var1 = "123456789-0"
para separarlas
1
2
var2 = substr(var1,1,at('-',var1)-1) esto te da por reseultado 123456789
var3 = substr(var1,at('-',var1)+1,len(var1)-at('-',var1)) aca esto te va a dar el 0

para reemplazar el caracter que tenes - por espacio podes utilizar
la funcion stuff

1
var4 = stuff('-',at('-',var1),1,' ') esto tye devolvera 123456789 0 sin el guion
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:Separar caracteres

Publicado por javier (90 intervenciones) el 20/12/2006 21:01:32
Tengo una base de datos con 300.000 registros ya ingresados y debo homologar los datos , para eso necesito separar los registros ya ingresados.Con los nuevos ingresos no tengo problema ya estan funcionando..
Att Javier
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:Separar caracteres

Publicado por jorge (423 intervenciones) el 20/12/2006 22:42:18
Intenta usar:
STRTRAN(campo,'-','')
o bien
STUFF(campo,posicion,1,'')

Suerte
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:Separar caracteres

Publicado por javier (90 intervenciones) el 21/12/2006 16:18:45
Me resulto
Gracias y Feliz Navidad
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:Separar caracteres

Publicado por EDISON (5 intervenciones) el 25/01/2019 21:35:58
que pasa cuando tienes por ejemplo 128-688-6987-25 y quieres separar
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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Separar caracteres

Publicado por Fidel José (657 intervenciones) el 26/01/2019 00:55:46
1
2
3
4
5
6
7
8
9
10
11
12
13
* Opción 1
lcString = "128-688-6987-25"
lnLines = ALINES(laLines,m.lcstring,1+4,"-")
FOR i = 1 TO m.lnLines
	? laLines[i]
NEXT
 
 
* Opción 2
lcString = "128-688-6987-25"
FOR i = 1 TO GETWORDCOUNT(m.lcString,"-")
	? GETWORDNUM(m.lcString,i,"-")
NEXT
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