Te invitamos a nuestro Servidor Discord (https://discord.gg/euAr7eT) para que puedas estar siempre al tanto de nuestra comunidad y jugar a tus juegos favoritos con nosotros.

Bienvenido a Metin2Zone

Registrate ahora para obtener acceso a todas nuestras características y ventajas. Una Vez Registrado y Conectado, Usted Será capaz de contribuir Mediante la Presentación de su propio contenido o respondiendo al contenido existente. Usted será capaz de Personalizar su Perfil, recibirá puntos de reputación como una recompensa, mientras que también se comunica con otros miembros a través de su propia bandeja de entrada privada, y Mucho Más!

Este Mensaje se eliminará una vez hayas Iniciado Sesión.

  • Comunicados

    • R1z

      Actualización del Foro y cambio de alias por usuario!   19/06/17

      Es importante saber que actualmente para iniciar sesión con tu cuenta necesitas utilizar el alias que tenías antes de la actualización como usuario, por ejemplo si tu usuario era juanito y tu alias (el nombre con el que te veían los otros miembros) era juan entonces ahora juan es tu usuario, si no recuerdas tu alias puedes solicitar que se te recupere la contraseña para que te pueda llegar el usuario actual de tu cuenta al email.
Croqueta

memorizar tablas en un archivo y leer

do
  local function exportstring( s )
  return string.format("%q", s)
  end
  function table.save(  tbl,filename )
  local charS,charE = "   ","n"
  local file,err = io.open( filename, "wb" )
  if err then return err end
  local tables,lookup = { tbl },{ [tbl] = 1 }
  file:write( "return {"..charE )

  for idx,t in ipairs( tables ) do
	 file:write( "-- Table: {"..idx.."}"..charE )
	 file:write( "{"..charE )
	 local thandled = {}

	 for i,v in ipairs( t ) do
		thandled[i] = true
		local stype = type( v )
		if stype == "table" then
		   if not lookup[v] then
			  table.insert( tables, v )
			  lookup[v] = #tables
		   end
		   file:write( charS.."{"..lookup[v].."},"..charE )
		elseif stype == "string" then
		   file:write(  charS..exportstring( v )..","..charE )
		elseif stype == "number" then
		   file:write(  charS..tostring( v )..","..charE )
		end
	 end
	 for i,v in pairs( t ) do
		if (not thandled[i]) then
		   local str = ""
		   local stype = type( i )
		   if stype == "table" then
			  if not lookup[i] then
				 table.insert( tables,i )
				 lookup[i] = #tables
			  end
			  str = charS.."[{"..lookup[i].."}]="
		   elseif stype == "string" then
			  str = charS.."["..exportstring( i ).."]="
		   elseif stype == "number" then
			  str = charS.."["..tostring( i ).."]="
		   end

		   if str ~= "" then
			  stype = type( v )
			  if stype == "table" then
				 if not lookup[v] then
					table.insert( tables,v )
					lookup[v] = #tables
				 end
				 file:write( str.."{"..lookup[v].."},"..charE )
			  elseif stype == "string" then
				 file:write( str..exportstring( v )..","..charE )
			  elseif stype == "number" then
				 file:write( str..tostring( v )..","..charE )
			  end
		   end
		end
	 end
	 file:write( "},"..charE )
  end
  file:write( "}" )
  file:close()
  end
  function table.load( sfile )
  local ftables,err = loadfile( sfile )
  if err then return _,err end
  local tables = ftables()
  for idx = 1,#tables do
	 local tolinki = {}
	 for i,v in pairs( tables[idx] ) do
		if type( v ) == "table" then
		   tables[idx][i] = tables[v[1]]
		end
		if type( i ) == "table" and tables[i[1]] then
		   table.insert( tolinki,{ i,tables[i[1]] } )
		end
	 end
	 for _,v in ipairs( tolinki ) do
		tables[idx][v[2]],tables[idx][v[1]] =  tables[idx][v[1]],nil
	 end
  end
  return tables[1]
  end
end

 

pro ejemplo

tabla={
minombre='Noa',
ano='23',
pais='Alemania'
}
table.save(tabla,"mitabla.lua")
local tabla=table.load("mitabla.lua")
for _,i in next, tabla do
say(i)
end
o 
say("mi nombre es "..tabla.minombre.." tengo "..tabla.ano.." anos y bivo en "..tabla.pais)

Compartir esta publicación


Enlace a la publicación
Compartir en otros sitios

+1 Gracias por el aporte Noa, eres un crack.

 

Haber si nos vemos por skype que hace tiempo que no coincidimos Ivan y yo contigo.

Compartir esta publicación


Enlace a la publicación
Compartir en otros sitios

Bueno cierro el tema a petición de autor, y borro mensajes de spam.

Compartir esta publicación


Enlace a la publicación
Compartir en otros sitios
Guest
This topic is now closed to further replies.

  • Recientemente navegando por este tema   0 miembros

    No hay usuarios registrados visitando esta página.