Eliminare gli spazi

Sto ampliando e migliorando il mio interprete Basic e oggi mi sono accorto di un problema legato ad una funzione che uso da tanti anni, e mi sono reso conto di essere un pollastro ;-)

La funzione in questione è Trim, siccome in LiveCode non c'era e avevo bisogno di qualcosa minimalista la scrissi così:

function Trim pText

return word 1 to -1 of pText

end Trim


Siccome lo spazio non viene considerato tipo WORD, scrivendo in questa maniera restituisco tutte le WORD dalla prima all'ultima e se ci sono degli spazi all'inizio o alla fine li salta, geniale.

Ma c'è sempre un ma, in Basic per distinguere i tipi di variabili si usa mettere il simbolo $ alla fine del nome della variabile, cosi anche nel mio interprete Basic, se la riga è: 

VAR Pollo$ = "Paolo"

PRINT "Ciao ", Pollo$ , " bentornato!"

Nella prima riga tutto bene perché Pollo$ è considerato tipo TOKEN ma se eseguo la funzione Trim nel PRINT, visto che ci sono tre segmenti separati dalla virgola e non voglio trattarli come TOKEN, mi restituisce "Pollo" perché il simbolo $ non appartiene al tipo WORD, in LiveCode il tipo WORD è una parola delimitata da uno o più spazi, tabulazioni, CR, o è racchiusa da doppi apici. Meglio tardi che mai Winking

Così ho riscritto la funzione Trim :-)


function Trim pData

return Ltrim(Rtrim(pData))

end Trim


function Ltrim pData

local v_i

repeat with v_i = 1 to the number of chars in pData

if char v_i of pData <> space then exit repeat

end repeat

return the char v_i to -1 of pData

end Ltrim


function Rtrim pData

local v_i

repeat with v_i = the number of chars in pData down to 1

if char v_i of pData <> space then exit repeat

end repeat

return the char 1 to v_i of pData

end Rtrim


Ovviamente si può scrivere in altri cento modi ;-)

Commenti

Posta un commento

Post popolari in questo blog

Amstrad CPC 472

Quando la politica insiste nel legiferare nel mondo dell'informatica senza nemmeno conoscerlo, produce delle porcherie mostruose. Lo vediamo ogni giorno nei disastri combinati dai legislatori nel campo informatico, e siamo nel 2023: figuriamoci nel 1985! Uno di questi disastri è legato alla storia dell’Amstrad CPC 472. Come molti imprenditori, Sir Alan Sugar aveva l’ambizione di vendere i suoi favolosi computer in tutta Europa, e la Spagna era uno degli obiettivi principali. L’Amstrad CPC 472 è un computer prodotto da Amstrad per il mercato spagnolo negli anni '80. Questo modello è una variante specifica dell’Amstrad CPC 464, con alcune modifiche significative per adattarsi alle normative spagnole dell’epoca. Amstrad numerava i modelli con il primo numero a indicare la serie e le cifre restanti la quantità di memoria; quindi, intuiamo che il CPC 472 ha 72 KB di RAM. Questa strana quantità è dovuta al fatto che, nel settembre del 1985, il governo spagnolo introdusse una tassa su...
Continua a leggere

Amstrad Computer

 Parlo sempre dei miei computer Amstrad,  nel periodo che va dalla metà degli anni '80 agli anni '90, Amstrad ha consolidato la sua posizione nel mercato dei computer domestici mediante la produzione di una serie di dispositivi con processore Z80 noti come Amstrad CPC. Questi sistemi, che includevano il CPC 464, il CPC 664, il CPC 6128 e, successivamente, i modelli CPC Plus, avevano una base tecnologica comune ma presentavano alcune differenze significative. - Amstrad CPC 464 (1984): Questo modello presentava un processore Z80A a 4 MHz, 64 KB di RAM e un lettore di cassette integrato. La tastiera era incorporata nella parte superiore del case. - Amstrad CPC 664 (1985): Simile al CPC 464, il modello 664 aveva le stesse specifiche tecniche ma includeva un drive per floppy disk integrato da 3 pollici. Inoltre, la tastiera era stata migliorata per un'esperienza utente più confortevole. - Amstrad CPC 6128 (1985): Il CPC 6128 era il modello di punta della serie originale. Condivi...
Continua a leggere

Sinclair QL

Meno famoso rispetto allo ZX Spectrum, il Sinclair QL è un computer che avevo già citato in un blog precedente e di cui non potevo non parlare ancora. Questo favoloso e strambo computer è frutto della mente vulcanica – e del braccino corto – di Sir Clive Sinclair. Il Sinclair QL (Quantum Leap) è un computer a 32 bit annunciato da Sinclair Research nel 1984, un tentativo ambizioso di creare un desktop avanzato e versatile che potesse competere con sistemi come l’Apple Macintosh e il Commodore Amiga. Le caratteristiche chiave del QL includevano: Architettura Hardware: Processore : Motorola 68008 a 8/32 bit, con una frequenza di clock di 7,5 MHz e bus esterno a 8 bit. Memoria RAM : 128 KB di RAM, di cui 32 KB condivisi con la memoria video. Poteva essere espansa fino a 640 KB. Memoria ROM : Il sistema operativo e le utility erano memorizzati in una ROM da 48 KB, con possibilità di espansione tramite cartucce esterne. Archiviazione : Il QL utilizzava due microdrive, sistemi di memorizzazio...
Continua a leggere