485960_es-ES

liliconcom

Cómo usar un script para contar la misma cantidad de caracteres en diferentes cadenas.

Cómo usar un script para lograr la cantidad de caracteres que hacen coincidir el contenido de la tabla de datos con el contenido de la segunda tabla, independientemente del orden, y devolver el número de fila de la segunda tabla con la mayor cantidad de datos coincidentes.

 

Solo escribiré comparaciones de bucles simples.

¿Cómo puede ser más rápido si el número de cadenas a comparar es grande?

¡Gracias!

secuencias de comandosRe: 怎样用脚本计算不同字符串中字符相同的个数。

Re: Cómo utilizar un script para contar el número de caracteres idénticos en diferentes cadenas.

Si no se permite la duplicación, puede intentar utilizar matrices asociativas y sus operaciones de conjunto:

Names Default To Here(1);

dt = New Table("demo",
	Add Rows(4),
	New Column("A", Character, "Nominal", Set Values({"KDBAC", "FLGHEK", "ONLCQR", "WVTZXR"})),
	New Column("B", Character, "Nominal", Set Values({"ROMNLQ", "DFBACE", "LKGHJK", "WVTZYX"}))
);

// Create lookup associative array, with row number as key and value as associative array with 
// keys as characters in row. This will be used in union operations
aa_lookup = Associative Array();
For Each({val, idx}, dt:B << get values,
	aa_lookup[idx] = Associative Array(Eval List(Words(val, "")));
);

// Create collection column
dt << New Column("C", Numeric, Continuous);

For Each Row(dt,
	best_match = 0;
	max_row = .;
	For Each({{key, val}}, aa_lookup,
		cur_aa = Associative Array(Eval List(Words(:A, "")));
		cur_aa << Intersect(val);
		cur_match = N Items(cur_aa);
		If(cur_match > best_match,
			best_match = cur_match;	
			max_row = key;
		);
	);
	:C = max_row;
);