Page 1 of 1

Ayuda Amigos

Posted: Wed Dec 12, 2007 10:20 pm
by mantonio_08
Amigos:

Nuevamente estoy molestando, pero el cambio a 32 bits me tiene loco, tengo lo siguiente:

Dato: "13.563.270-5"

Lista='0123456789K'

aa=at('-',trim(Dato))
dg=subs(Dato,aa+1,1) -- Rescato el ultimo digito es decir el " 5 "

Debo buscarlo si se encuentra en la variable Dato

Pruebo asi y me da 0, lo que indica no encontrado

if at("(dg)",lista)=0
MsgStop(" El Digito No Es Valido ")
return (Ra:=.f.)
endif
Asi tampoco resulta, me da resultado 0

if at("&dg",lista)=0
MsgStop(" El Digito No Es Valido ")
return (Ra:=.f.)
endif

No entiendo nada,

Uso FWh 704, xHarbour 00.99.71

Esperando salir del poncho,

Saludos,
Antonio

Posted: Thu Dec 13, 2007 2:27 am
by Armando
MAntonio:

Creo que estas en una madeja :shock:
Si el dato a buscar lo tienes en una variable, ¿ Por que
lo pones entre comillas ?

Pruebalo así

IF AT(dg,Lista) == 0
...
...
...

Saludos

Posted: Thu Dec 13, 2007 2:35 pm
by ADBLANCO
NO SE SI ES ERROR DE TRANSCRIPCION

pero si pones

DATO:= "13.563.270-5"


EN LUGAR DE:

Dato: "13.563.270-5"

TE TRABAJA!!

Posted: Thu Dec 13, 2007 6:10 pm
by mantonio_08
Amigo:

Primero que nada, muchas gracias a ambos, por su respuesta.

Tienes razon, pero es solo un error de transcripcion, la situacion es que sigo con el problema.

Quisas la pregunta mas facil sea:

Como busco un caracter que viene en una variable, dentro de un strin.

var1:="9" Varia a buscar
Var2:="0123456789K" Variable sobre la que se debe buscar la variable var1.

En 16 bits usaba ----> at("&var1",var2), pero en 32 bist, ya no lo hace, existe otro comando para hacerlo.
:?:


Me es urgente.

Saludos,
Antonio

ADBLANCO wrote:NO SE SI ES ERROR DE TRANSCRIPCION

pero si pones

DATO:= "13.563.270-5"


EN LUGAR DE:

Dato: "13.563.270-5"

TE TRABAJA!!

Posted: Thu Dec 13, 2007 8:14 pm
by Willi Quintana
Hola, yolo hago asi:
...
cFrase := "5"
cTexto := "QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P"
nPos := 0

nPos := AT(cFrase, cTexto )
IF nPos > 0
MsgAlert(" la letra - " + cFrase + "- esta en la posicion " + STR(nPos) )
EndIf


Salu2

Posted: Thu Dec 13, 2007 9:11 pm
by mantonio_08
Willi:

Mil gracias amigo, funciono perfecto.

Saludos,
Antonio
Willi Quintana wrote:Hola, yolo hago asi:
...
cFrase := "5"
cTexto := "QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P"
nPos := 0

nPos := AT(cFrase, cTexto )
IF nPos > 0
MsgAlert(" la letra - " + cFrase + "- esta en la posicion " + STR(nPos) )
EndIf


Salu2

Posted: Fri Dec 14, 2007 2:43 am
by ADBLANCO
No se pasa, pero pienso que debes revisar tu instalación ya que coloque lo que mandastes en la pregunta original (corrigiendo el error de transcripcion) y me trabajó perfecto.


Saludos, Angel