Implementazione su spaziometria

[ilgobbo60]

Buona sera vorrei chiedere se possibile a LuigiB. di inserire in Spaziometria o creare uno scrypt per la ricerca della cabala del Frate
ovvero trasformare lettere in numeri .
Es: ( parola (( ALBA )) (A =01 L =10 B =02 A =01) con somma ( 01+10+02+01) = 14
A B C D E F G H I L M N O P Q R S T U V Z
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21
In attesa di una risposta ringrazio anticipatamente
Un Saluto da ilgobbo60™®©

 

[LuigiB]

Ciao

Option Explicit
Sub Main
	Dim sAlfabeto
	Dim sParola
	Dim nSomma
	Dim k
	Dim nLettere
	Dim id
	sAlfabeto = "abcdefghijklmnopqrstuvwxyz"
	sParola = InputBox("Inserire parola",,"test")
	nLettere = Len(sParola)
	
	For k = 1 To nLettere
		id = InStr(sAlfabeto,LCase(Mid(sParola,k,1)))
		
		Call Scrivi(Mid(sParola,k,1) & " ----> " & Format2(id))
		nSomma = nSomma + id
	Next
	Call Scrivi("Somma : " & nSomma)
End Sub

 

[ilgobbo60]

Grazie LuigiB immaginavo in una Tua soluzione , credo anche che da oggi Spaziometria sia l'unico Software Libero ad implementare La Cabala Del Frate
ovvero tradurre parole in numero .
Un Saluto da ilgobbo60™®©

 

[Joe91]

Bravo Luigi ottima soluzione.

Grazie per i preziosi suggerimenti.

Buona Giornata a tutte/i.

 

[Mike58]

Ciao, e un grazie al il gobbo60 per lo spunto, nonchè un fenomenale a Luigi per la soluzione dello script, se si potesse magari una spiegazione di quei codici usati, LEN, MID, LCASE,INSTR.

Grazie.

 

[Joe91]

Buon giorno a tutti ...

Io avevo in mente:

Sub Main
 Converti = InputBox("Converti",,"Alba")
 n = Len(Converti)
 For k = 1 To n
  L = Mid(Converti,k,1)
  V = Asc(LCase(L)) - 96 
   If V>10 Then V = V-2 'Toglie J/K
  '...ecc occorre correggere gli errori introdotti dalle lettere "straniere".
  Scrivi(L) & " ----> + " & Format2(V)
  Somma = Somma + V
 Next
 Scrivi "Somma   = " & Somma
End Sub

Ma anch'esso è alfabetizzato all'inglese mentre il nostro Frate l'ha ancora da imparà!

Meglio si adatta lo script di Luigi ... togliendo le lettere ... sconosciute al nostro Frate.

Buona Giornata a tutte/i.

 

[LuigiB]

ciao ragazzi , grazie ma per tanto poco ...
Allora
Len : restituisce la lunghezza in caratteri di una stringa
LCase : restituisce la stringa passata in minuscolo
Instr : torna la posizione del carattere cercato in una stringa (facendo differenza tra maiusc e minusc percio preventivamente si usa lcase )
Mid : estrae n caratterti da una stringa a partire dalla pos specificata.

 

[Mike58]

Grazie Luigi,