domenica 1 febbraio 2009

Lo sgabuzzino del pc

Rhinoscript: esercizio con le stringhe

Option Explicit
Sub Main()
Dim name
Dim surname
Dim nameres
Dim surnameres
Dim namecode

name = Rhino.Getstring("What's your name?")
surname = Rhino.Getstring("What's your surname?")

nameres = UCase(name)
surnameres = UCase(surname)

nameres = Left(nameres, 1)
surnameres = Left(surnameres, 3)

namecode = nameres & "." & surnameres

Rhino.Messagebox ("your personal code is: " & namecode)

End Sub

Main



in questo modo rhino chiede nome e cognome
e restituisce un codice con le prime tre lettere del cognome e una lettera del nome
enjoy

Nessun commento: