Per Joe91 cortesemente...

[xabio]

Ciao Xabio.

La domanda è precisa ma accenno a scrivi stringanumeri ed hai suoi parametri.

Mentre se devi o vuoi usare scrivi... farai riferimento ai parametri di scrivi

Recentemente Luigi ha modificato spaziometria ed indicato le personalizzazioni possibili

Modifichero' questo messaggio insrendo i link e gli esempi.

Brevemente scrivi elemento spazio virgola virgola zero.

Grazie Joe

 

[xabio]

Semplici esempi che rallegrano la vita poiche' ti fanno capire delle cose ...

Sub Main
    Dim a(10)
    Call Scrivi("Bold, SI ritorno a capo (def), fondo ciano, Txt Rosso, dimensione 3 ",True,1,vbCyan,vbRed,3)
    Call Scrivi("NO Bold (def), NO ritorno a capo, fondo giallo, Txt Nero (def), dimensione 2 (def) ",False,0,vbYellow,vbBlack,2)
    Call Scrivi("NO ritorno a capo",,0)
    Call Scrivi("SI ritorno a capo (def)",,1)
    Call Scrivi("Ultimo rigo tutto default")
    
    For k = 1 To 10
        a(k) = k*2
    Next
    
    Scrivi
    Scrivi String(80,"*"),1
    Scrivi StringaNumeri(a)
    Scrivi StringaNumeri(a,"/")
    Scrivi StringaNumeri(a,"-",1)


    Scrivi    
    Scrivi String(100,"*"),0
    For k = 1 To 10
     Scrivi a(k)
    Next


    Scrivi    
    Scrivi String(120,"*"),1
    For k = 1 To 10
     Scrivi a(k) & " ",,0
    Next
    
End Sub

Grazie Gennaro.


Riprovo inserimento immagine scadente
Volevo chiederti nella riga
Scrivi StringaNumeri(a)
il puntino che separa i numeri dove lo pesca !
ciao

 

[Joe91]

Ciao Xabio,

ho provato lo script di Gennaro (che ringrazio), e gira senza errori.

Tuttavia devi avere installata una versione aggiornata di Spaziometria (ora è 1.4.14)

perchè le nuove aggiunte nei parametri di scrivi, sono eseguibili, senza errori, solo con una versione "nuova" di Spaziometria.

((Tra parentesi) ho modificato e ti consiglio di rileggere il mio messaggio precedente)

I puntini di cui chiedi, sono di default ... ma Gennaro ti ha indicato come sostituirli.

Cordiali saluti

 

[xabio]

Ciao Xabio, ho provato lo script di Gennaro (che ringrazio), e gira senza errori. Tuttavia devi avere installata una versione aggiornata di Spaziometria (ora è 1.4.14) perchè le nuove aggiunte nei parametri di scrivi, sono eseguibili, senza errori, solo con una versione "nuova" di Spaziometria. ((Tra parentesi) ho modificato e ti consiglio di rileggere il mio messaggio precedente) I puntini di cui chiedi, sono di default ... ma Gennaro ti ha indicato come sostituirli. Cordiali saluti

Grazie per le precisazioni Joe Aggiornero' il programma ora sto usando la 1.4.8 Comunque io salvo tutti gli esempi di voi esperti che poi all'occorenza mi tornano utili. Ciao.

 

[Ouroboros]

Per Joe91 o chi puo':
gentilmente vorrei sapere se e' possibile generare una matrice monodimensionale utilizzando un ciclo for...next
come nell' esempio sottoriportato:

For k = 1 To 10 a(k) = k*2 Next

In caso affermativo qual'e' l'istruzione per salvare la matrice?
Come faccio a cercare un singolo elemento all' occorrenza nella stessa matrice o in una generica matrice "scritta" manualmente
elemento per elemento?
Grazie per l'eventuale risposta.

 

[Joe91]

Ciao,

qui di seguito hai la doppia creazione della matrice (Array) sia per inserimento diretto,

che con il ciclo For/Next

Sub Main
'I° Esempio con Array
Fibonacci = Array(1,2,3,5,8,13,21,34,55,89)
Scrivi StringaNumeri (Fibonacci)
For Num = 0 To UBound (Fibonacci)
Scrivi  
Scrivi Num & "° " & "Num = "  & Fibonacci (Num) 
Next

Scrivi : Scrivi Fibonacci (5)

Scrivi
'II° Esempio
For k = 1 To 10 
ReDim Preserve A(k)
A(k) = k*2 
Next
Scrivi StringaNumeri (A)

Scrivi : Scrivi A (5) ' Scrive il 5° Elemento
End Sub

Di entrambe le stringhe hai il prelievo diretto del 5° Elemento.

L'output dell script è un testo che puoi copiare/incollare/salvare altrove.

Oppure lo script è un generatore della sequenza di numeri che potrai lanciare all'occorrenza,

per avere la lunghetta (o l'array) (ovvero tutti gli array) che vorrai.

Per scrivere direttamente sul disco suppongo Luigi abbia previsto per Spaziometria, link al FSO,

ma non li ho mai cercati/provati. Non saprei, per ora, come aiutarti.

 

[Ouroboros]

...gentilissimo!!!
Grazie!!!
Ciao.

 

[LuigiB]

ciao , per scrivere in un file è presente l'istruzione ScriviFile mostrata nel successivo esempio

Option Explicit
Sub Main
	
	
	
	Dim k
	Dim sFile 
	Dim sNumeri 
	

	sFile = GetDirectoryTemp & "Test.txt" ' costruisce un percorso valido usando la dir temp dell'applicazione
	Call EliminaFile( sFile) ' cancella eventualmente il file se gia esiste
	
	For k = 1 To 1000 ' ciclo di generazione
		
		ReDim aRetCol(0)
		Call GetColonnaCasuale(6,aRetCol) ' ottengo una combinazione casuale di 6 numeri
		
		sNumeri = StringaNumeri(aRetCol,,True) ' trasformo il vettore dei numeri in stringa
		Call Scrivi(sNumeri) ' scrivo a video i numeri 
		Call ScriviFile (sFile , sNumeri ,False ,True) ' scrivo anche sul file preposto
	Next
	Call CloseFileHandle (sFile) ' chiudo l'handle al file 
	
	Call LanciaFile (sFile) ' lancio il file si aprira notepad
	
	 	
End Sub

 

[gennaro]

Xabio, ti rimando l'esempio con le 4 combinazioni possibili.
Comunque la risposta è: i puntini li mette di DEFAULT

Sub Main
    Dim a(10)
    
    For k = 1 To 10
        a(k) = k*2
    Next
    
    Scrivi "ESEMPI DI StringaNumeri",1,,vbYellow
    Scrivi
    Scrivi "Di default lo scrive coi puntini separatori e senza FORMATTARE su 2 cifre =>" & StringaNumeri(a)
    Scrivi "Qui abbiamo imposto di cambiare separatore e NON FORMATTARE su 2 cifre =>" & StringaNumeri(a,"/")
    Scrivi "Qui abbiamo imposto di NON cambiare separatore e di FORMATTARE su 2 cifre =>" & StringaNumeri(a,,1)
    Scrivi "Qui abbiamo imposto di cambiare separatore e di FORMATTARE su 2 cifre =>" & StringaNumeri(a,"^",1)
End Sub

 

[xabio]

Grazie Gennaro . Mi sto creando un file didattico con tutte le istruzioni che mi possono servire . Sara' dura avere padronanza del linguaggio ma per fortuna c'e' gente come te , Joe ,Luigi "chiaramente" e altri nel forum che direttamente o indirettamente mi da la spinta . Grazie ancora. Buona Domenica.