Ayuda Amigos

Ayuda Amigos

Postby mantonio_08 » Wed Dec 12, 2007 10:20 pm

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
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Postby Armando » Thu Dec 13, 2007 2:27 am

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3237
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby ADBLANCO » Thu Dec 13, 2007 2:35 pm

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!!
User avatar
ADBLANCO
 
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Postby mantonio_08 » Thu Dec 13, 2007 6:10 pm

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!!
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Postby Willi Quintana » Thu Dec 13, 2007 8:14 pm

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
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Postby mantonio_08 » Thu Dec 13, 2007 9:11 pm

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
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Postby ADBLANCO » Fri Dec 14, 2007 2:43 am

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
User avatar
ADBLANCO
 
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 42 guests

cron