Mi aiutate a creare una classe?

[Stan]

Oddio non so manco se quello che mi serve è una classe, ma penso di sì. Vi spiego, in realtà è una cosa semplicissima.

Supponiamo che io abbiano stringa in siffatto modo

NOME=Topolino|Cognone=pippo|Età=vecchio|Sesso=tant o

Vorrei creare un qualcosa che nel momento che gli passo la stringa e poi faccio


cosa.getNome 'mi restituisce il nome
cosa.getCognome 'mi restituisce il cognome

La stringa la so manipolare io, non c'è problema, è che non si creano i metodi della classe.

[Santino83_02]

class SplitString

private splits(3)

public property get Nome()
	Nome=splits(0)
end property

public property get Cognome()
	Cognome=splits(1)
end property

public property get Eta()
	Eta=splits(2)
end property

public property get Sesso()
	Sesso=splits(3)
end property



public sub load(strToSplit)
	call elabora(strToSplit)
end sub

private sub elabora(strToEdit)

dim splStr,el1,el2

splStr=split(strToEdit,"|")

for each couple in splStr
	
	el1=left(couple,instr(couple,"=")-1)
	el2=mid(couple,instr(couple,"=")+1,len(couple))
	
	call insert(el1,el2)
next

erase splStr
end sub

private sub insert(etichetta,valore)

dim i
i=-1

select case lcase(etichetta)
	case "nome"
		i=0
	case "cognome"
		i=1
	case "età", "eta"
		i=2
	case "sesso"
		i=3
end select

if i>=0 then splits(i)=valore
end sub
	


public sub Clear()
	for i=0 to ubound(splits)
		splits(i)=""
	next
end sub

end class




dim useSplitStr
set useSplitStr=New SplitString

str="NOME=Topolino|Cognome=pippo|Età=vecchio|Sesso=tanto"

useSplitStr.load(str)

response.write "nome:" & useSplitStr.Nome() & " - cognome:" & useSplitStr.Cognome() & " - eta:" & useSplitStr.Eta() & " - sesso:" & useSplitStr.Sesso() & "

"


useSplitStr.Clear()
str="NOME=Pluto|Cognome=baudo|Età=giovane|Sesso="

useSplitStr.load(str)

response.write "nome:" & useSplitStr.Nome() & " - cognome:" & useSplitStr.Cognome() & " - eta:" & useSplitStr.Eta() & " - sesso:" & useSplitStr.Sesso()

set useSplitStr=nothing

[Stan]

VVoVe: Non occoreva tanto ^^
Grazie, ora la provo.

[Santino83_02]

Originariamente inviato da Stan
VVoVe: Non occoreva tanto ^^
Grazie, ora la provo.

tanto per fare un esempio