- Nombre del creador: Johann
- Breve descripción de su función: Acortar y alargar una cadena de texto que tiene caracteres repetidos sucesivamente
- Versión GM utilizada: Game maker: Studio 1.4.9999
- Código del Script:
Script para acortar una cadena de texto resumiendo la cantidad de caracteres repetidos sucesivos:
[gml]
///shorten(str)
//
// (ESP)
// Reduce el tamaño de una cadena de texto
// reemplazando un conjunto de caracteres sucesivos
// por el numero de veces que se repite.
//
// str cadena de caracteres muy larga
//
// (ENG)
// Reduces the size of a text replacing a set of
// consecutive characters with the number of times
// it is present.
//
// str a very large string
//
//
/// GMLscripts.com/license
{
var str = argument0
var newStr = "";
var currentChar;
var nextChar;
var size = string_length(str);
var amount = 0;
for (var i=1; i<=size; i++) {
currentChar = string_char_at(str, i);
if (i!=size) {
nextChar = string_char_at(str, i+1);
} else {
nextChar = "";
}
if (currentChar == nextChar) {
amount = 1;
newStr += currentChar;
while (currentChar == nextChar) {
amount++;
i++;
nextChar = string_char_at(str, i+1);
}
newStr += ("(" + string(amount) + ")");
} else {
newStr += currentChar;
}
}
return newStr;
}
[/gml]
Script para recuperar una cadena de texto reestableciendo la cantidad de caracteres repetidos sucesivos:
[gml]
///enlarge(str)
//
// (ESP)
// Recupera el tamaño de una cadena de texto
// agregando un conjunto de caracteres sucesivos
// a partir del numero de veces que se repite.
//
// str cadena de caracteres a alargar
//
// (ENG)
// Recovers the size of a text adding a set of
// consecutive characters with the number of times
// it is needed.
//
// str a string to enlarge
//
//
/// GMLscripts.com/license
{
var str = argument0;
var oldStr = "";
var currentChar;
var nextChar;
var size = string_length(str);
var amount = "";
for (var i=1; i<=size; i++) {
currentChar = string_char_at(str, i);
if (i!=size) {
nextChar = string_char_at(str, i+1);
} else {
nextChar = "";
}
if (nextChar == "(") {
amount = "";
while (nextChar != ")") {
i++;
nextChar = string_char_at(str, i+1);
amount += nextChar;
show_debug_message(amount);
}
repeat(real(amount)) {
oldStr += currentChar;
}
i++;
} else {
oldStr += currentChar;
}
}
return oldStr;
}
[/gml]
Estos algoritmos se basan (se inspiran, mejor) en el algoritmo Run-length_encoding y he tenido que hacerlos para acortar y recuperar las cadenas de texto generadas por las funciones ds_*_write() donde el * es el nombre de una estructura de datos en GM, estas funciones retornan un string como el siguiente y su tamaño depende del contenido en la estructura de datos:
[gml]
//Ejemplo
var text = ds_grid_write(my_grid);
show_debug_message(text);
var text2 = shorten(text);
show_debug_message(text2);
[/gml]
Código [Seleccionar]
5A0200000400000004000000000000000000000000000000000000000000000000000040000000000000000000000040000000000000000000000040000000000000000000000040000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000040000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000040000000000000000000000000000000000000000000000000000000000000000000000000
408 caracteres
5A020(5)40(7)40(52)40(23)40(23)40(23)40(95)40(95)40(73)
55 caracteres
Ya que requiero almacenar estos datos en una base de datos sqlite3 para generar unas estructuras visualmente en mi proyecto y no quería almacenar algo muy largo.
En resumen, el tamaño del texto se reduce en un 86.5% mejorando el consumo de memoria en disco, esto es importante para aplicaciones móviles.
Ojalá les gusten y puedan usarlos.
Mañana los posteo en https://www.gmlscripts.com y en el foro de yoyo, haber como me va por allá, por eso usé ese encabezado de comentarios.
