Bueno, tengo este código. Las 3 veces me escribe 81. Lo extraño, es que caf coje bien lo que tiene que cojer, pero al pasar por el return me devuelve 81. ¿Qué pasa?
process main()
private
string cad;
end
begin
cad=buscar("resol_x");
write_var(0,10,10,3,cad);
cad=buscar("resol_y");
write_var(0,10,20,3,cad);
cad=buscar("caca");
write_var(0,10,30,3,cad);
loop
frame;
end
end
function string buscar(string cadena)
private
int pf;
string cadena2,cadf;
end
begin
pf=fopen("config.yaw",O_READ);
if(pf)
while(!feof(pf))
cadena2=fgets(pf);
if(find(cadena2,cadena)>-1)
cadf=fgets(pf);
break;
end
end
fclose(pf);
return cadf;
end
end
claro, porque buscar esta definida como int, porque la usas antes de escribirla, o escriba antes del main o declarala antes del main.
se declaran como en c no??
en plan: function string buscar(string cadena);
busca en el foro DECLARE
ok, muchas graicas, todo arreglado ^__^