problema logico su tipo variabile

[ThePenguin]

ok la parte che mi procura l'errore è questa

Vettore1[I] = asc(Object[I])+Valore
Vettore2[I] = chr(Vettore1[I])
OggettoConvertito = OggettoConvertito & Vettore2[I]

a questo punto che soluzione posso adottare per portare ogni singolo carattere della stringa nel vettore?
E a dirla tutta ma secondo voi devo per forza far uso di un vettore?
Perchè potrei fare anche una roba del tipo prendo carattere per carattere la stringa, lo converto e lo riassocio seduta stante in un'altra variabile di tipo stringa, ma rimane il fatto che a logica per me mi prende male il concetto di

stringa[i]

ossia che non mi digerisce il concetto di trattare la stringa come un array di caratteri...

che posso fare?

[elfa]

perchè non sostituisci

  i=0
  do while (i <= LungOggetto)
    i=i+1
	Vettore1[I] = asc(Object[I])+Valore
	Vettore2[I] = chr(Vettore1[I])
	OggettoConvertito = OggettoConvertito & Vettore2[I]
  loop

con

  i=0
  do while (i <= LungOggetto)
    i=i+1
    carattere=mid(object,i,1)              'ricontrolla la sintassi del mid
    OggettoConvertito = chr(asc(carattere)+Valore)
  loop

ed eviti tutti i vettori, ma soprattutto quel object[I] che non mi sembra ammissibile

[ThePenguin]

Originariamente inviato da elfa

  i=0
  do while (i <= LungOggetto)
    i=i+1
    carattere=mid(object,i,1)              'ricontrolla la sintassi del mid
    OggettoConvertito = chr(asc(carattere)+Valore)
  loop

ed eviti tutti i vettori, ma soprattutto quel object[I] che non mi sembra ammissibile

vbediamo se ho capito, il mid mi ha lo stesso effetto del comando left?

  i=0
  do while (i <= LungOggetto)
    i=i+1
    carattere=left(object,i,1)              
   OggettoConvertito = chr(asc(carattere)+Valore)
  loop

ossia la tua idea è fargli contare e prendere un carattere per volta convertirlo e poi riassemblare la stringa?

[ThePenguin]

flag=0
if (lungOggetto <> 0) or (lungMessaggio <> 0) then
  i=0
  do while (i <= LungOggetto)
    i=i+1
    Carattere=mid(Oggetto,i,1) 
	NumCar=asc(Carattere)+Chiave
	NuovoCarattere=chr(NumCar)
	NuovoOggetto=NuovoOggetto & NuovoCarattere 
  loop
else
  flag=1
end if

l'errore è fra la riga i+1 e loop tuttavia a me le 4 righe di mezzo sembrano corrette eppure mi da errore http500

[elfa]

forse l'errore è dato da
chr(NumCar)
Sei sicuro che NumCar sia un argomento valido per chr?

[ThePenguin]

in che senso?
Si racchiude il valore numerico del carattere, sempre sia asc il comando corretto... :master:

[ThePenguin]

allora: Carattere=mid(Oggetto,i,1) lo prende e mi porta all'output video dei valori, la riga in cui cade in errore e quella immediatamente sucessiva ossia:

NumCar=asc(Carattere)+Chiave

ma cade in errore anche se la trasformo così:

NumCar=asc(Carattere)

ma che c'è in questa stringa che non va? :master: