Novità

Implementazione su spaziometria

ilgobbo60

Senior Member
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™®©
 
Ciao
Codice:
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
 
Ultima modifica di un moderatore:
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™®©
 
Bravo Luigi ottima soluzione.

Grazie per i preziosi suggerimenti.

Buona Giornata a tutte/i.
 
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.
 
Buon giorno a tutti ...

Io avevo in mente:
Codice:
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.
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11

Ultimi Messaggi

Indietro
Alto