Ayuda Amigos

[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

[Armando]

MAntonio:

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

Pruebalo así

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

Saludos

[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!!

[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

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!!

[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

[mantonio_08]

Willi:

Mil gracias amigo, funciono perfecto.

Saludos,
Antonio

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

[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