elaborazione coordinate

[Vincent.Zeno]

ciao
questa la situazione:
ho le coordinate di una firma grafica con le quali creo un'immagine disegnando tramite Jpeg.Canvas.DrawLine della libreria aspjpeg persits

le faccenda funziona se scrivo
Jpeg.Canvas.DrawLine 1,2,3,4
per ogni gruppo di coordinate, quindi decine di volte

la stringa originale è cosi scritta

"[{""lx"":118,""ly"":22,""mx"":118,""my"":21},{""lx"":258,""ly"":49,""mx"":259,""my"":49}]"

ripulendo con replace ottengo
118,22,118,21|258,49,259,49
poi con split separo i gruppi di cifre

ovviamente devo automatizzare la creazione di
Jpeg.Canvas.DrawLine 118,22,118,21
Jpeg.Canvas.DrawLine 258,49,259,49

quindi agisco così

		a=Split(firma,"|")
		
			for each x in a
			Jpeg.Canvas.DrawLine x 
			next

ma non va bene perché il formato dev'essere con le 4 coordinate nella forma
Jpeg.Canvas.DrawLine x,y,z,x

ho provato a metterci un'array

		a=Split(firma,"|")
		
			for each x in a
			
			rigaFirma	= x
			
			a=Array(rigaFirma)
			xx = a(0)
			xy = a(1)
			yy = a(2)
			yx = a(3)
			Jpeg.Canvas.DrawLine xx, xy, yy, yx 
			
			next

ma ottengo This array is fixed or temporarily locked: 'a'


come ne esco?

[optime]

adoperi due volte l'array "a", quindi...

[br1]

Hai provato con:

	a=Split(firma,"|")
		
	for each x in a
		Execute( "Jpeg.Canvas.DrawLine " & x )
	next

[Vincent.Zeno]

no vabbe... qui ho riportato male e fatto diversi tentatati per cui mi sono sicuramente perso pezzi lungo la strada

ora scrivo

		a=Split(firma,"|")
		
			for each x in a
			
			rigaFirma	= x
			
			b=Array(rigaFirma)
			xx = b(0)
			xy = b(1)
			yy = b(2)
			yx = b(3)
			Jpeg.Canvas.DrawLine xx, xy, yy, yx 
			
			next

non so cosa ho scritto "prima" ma ora l'errore è cambiato :
Subscript out of range: '[number: 1]'
quindi intendo che il valore dell'array (rigafirma) non può essere scritto così?
non mi ero accorto ma la stringa firma termina con "|". fa danno, vero? devo togliere l'ultimo carattere mi sa...

[Vincent.Zeno]

Originariamente inviato da br1
Hai provato con:

	a=Split(firma,"|")
		
	for each x in a
		Execute( "Jpeg.Canvas.DrawLine " & x )
	next

ora provo

[Vincent.Zeno]

no br1, non gli piace:
Wrong number of arguments or invalid property assignment: 'Jpeg.Canvas.DrawLine'

[optime]

a parte il doppio passaggio

for each x in a

rigaFirma = x

b=Array(rigaFirma)

può diventare

for each x in a

b=Array(x)

controlla sempre che "x" contenga qualcosa (almeno una virgola!)

[Vincent.Zeno]

stavo stampando in qui e la per capire cosa andasse storto,
credo di ave popolato male firma, sebbene apparentemente corretta stampandola a video
la parte precedente è questa

	a=Split(firmaCliente,"},")
		for each x in a

		firma = firma & x & "|"
		firma	= replace(firma,"{","")
		firma	= replace(firma,"}","")
		firma	= replace(firma,Chr(34),"")
		firma	= replace(firma,"lx:","")
		firma	= replace(firma,"ly:","")
		firma	= replace(firma,"mx:","")
		firma	= replace(firma,"my:","")

		next
		
		' quindi adesso ho cercato di vedere cosa salta fuori visto che avevo il dubbio sull'ultimo "|"
		' se qui stampo firma mi da la lista dei valori separati da pipe
		response.write firma
		
		'se invece provo a pulire
		' mi togli tutti i pipe
		firma	=	replace(firma,Right(firma,1),"")
		response.write firma

prosegue come prima

[optime]

non ti seguo più

[Vincent.Zeno]

vedo se riesco a ricapitolare

	
' ho già tolto cose che non servono e ho 
'firmaCliente pronto per esser lavorato
a=Split(firmaCliente,"},")
	for each x in a
	firma = firma & x & "|"
	firma	= replace(firma,"{","")
	firma	= replace(firma,"}","")
	firma	= replace(firma,Chr(34),"")
	firma	= replace(firma,"lx:","")
	firma	= replace(firma,"ly:","")
	firma	= replace(firma,"mx:","")
	firma	= replace(firma,"my:","")

	'la riga sotto l'ho messa adesso per cerca l'errore 
	'e infatti qualcosa non quadra
	nuovaFirma	=	nuovaFirma & firma
		
	next
		
	' quindi provo  a togliere l'ultimo pipe che si è creato in precedenza
	' ma mi toglie TUTTI i pipe separatori :confused: 
	nuovaFirma	=	replace(nuovaFirma,Right(nuovaFirma,1),"")
	'response.write nuovaFirma
		
	' in entrambi i modi (tentando di togliere l'ultimo pipe o meno)
	' qui non procede
a=Split(nuovaFirma,"|")

	for each x in a

	rigaFirma	= x
	'response.write rigaFirma
	
	b=Array(rigaFirma)
	xx = b(0)
	xy = b(1)
	yy = b(2)
	yx = b(3)
	Jpeg.Canvas.DrawLine xx, xy, yy, yx 
	
	next

il doppio passaggio a > rigafirma > b l'ho fatto per cercare di capire l'inghippo ma non cambia nulla, poi lo tolgo. o anche adesso, è solo una verifica