Newsgroup: it.comp.lang.visual-basic
Titolo: Saluti e domanda

Salve a tutti, premetto di essere un newbie di Visual Basic (le mie
ultime esperienze di basic risalgono al C64 dove programmavo
pseudogiochi in cui vincevi sempre perche' non conoscevo l'istruzione
IF :), in piu' sono nuovo pure di questo NG percio' colgo l'occasione
per salutare tutti.
La mia domanda e' questa, ho visto che c'e' un post simile di qualche
mese fa, ma non riesco a capire come adattarlo al mio caso:
Il mio programma (un editor di aree x MUD) non deve fare altro che
leggere da un file ASCII che ha + o - questa composizione:
#AREA Prova~
#AUTHOR Faber~
#ROOMS~
#200~
Casa di Faber~
Questa e' casa mia~
e via di seguito
+ o - sono tutti cosi'
Quello che a me interessa e che va messo nella textbox, ad esempio di
#AREA Prova~, e' Prova.
Per scriverle su file ho pensato di fare tante variabili public che
vengono mano a mano riempite e vengono scritte tutte in una volta
quando si salva.. ma per leggere?
Il fatto e' questo, non e' detto che le variabili ci siano tutte nel
file di testo (quindi non posso fare una cosa programmata gia' sapendo
che alla riga 1 trovero' #AREA, alla 2 #AUTHOR)
Dunque, come posso fare? 
una serie di  IF   left(riga (fino al ~, e se si' come posso farlo?),
5) = "#AREA" then area = right(riga, len(riga)-5)?
A me non viene in mente altro sinceramete... e su sto libraccio della
Apogeo (VB For Dummies.. mi raccomando non lo comprate 40k buttate,
spiega COME DISEGNARE UN FORM!!! Trascinare col il mouse.... bah) non
c'e' niente di interessante e utile :(
Spero riuscirete ad aiutarmi
Grazie in anticipo
Marco Fabbri

 5) = "#AREA" then area = right(riga, len(riga)-5)?
supponendo che tu abbia gia' caricato la variabile "riga" dal file con Line
Input, un approccio "nudo e crudo" e':
Dim EndPos     As Integer
Dim SpacePos   As Integer
Dim Comando    As String
Dim Valore     As String
If riga Like "[#]* *~" Then
    'questo funziona per i parametri tipo
    '#Comando Valore~
    'recuperiamo la posizione dei 2 delimitatori
    SpacePos = InStr(1, riga, " ")
    EndPos = InStr(1, riga, "~")
    'estraiamo quello che ci serve dalla stringa completa
    Comando = Mid$(riga, 2, SpacePos - 2)
    Valore = Mid$(riga, SpacePos + 1, EndPos - SpacePos - 1)
    'ora esemina il comando e agisci di conseguenza
    Select Case Comando
    Case "AREA"
        '...
    Case "AUTHOR"
        '...
    End Select
ElseIf riga Like "[#]*~" Then
    'questo funziona per i parametri tipo
    '#Comando~
    EndPos = InStr(1, riga, "~")
    'estraiamo quello che ci serve dalla stringa completa
    Comando = Mid$(riga, 2, EndPos)
    Select Case Comando
    Case "ROOM"
        'come sopra
    End Select
ElseIf riga Like "*~" Then
    'questo funziona per i parametri tipo
    'Comando~, piu' o meno come sopra
Else If ...
    'altre formati che non soddisfano quelli gia' elaborati
End If
[SNIP]
cerca sulla guida le istruzioni Like, InStr ecc.. per capire meglio il
meccanismo...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Ciao
Grazie mille, sei stato gentilissimo, soltanto una cosa: come devo
impostare il Line Input affinche' mi esamini una riga alla volta e non
tutto un blocco? Perche' altrimenti mi becca ovviamente soltanto la
prima parola che avvera il CASE che incontra (in questo caso #AREA)
Grazie ancora

 #AUTHOR Faber~
un altro Faber ?!?!?!
Faber


wrote:

Argh! Un clone!!!!!!
Faber the only and original since 1996

 Faber
dopo il proliferare dei fabi, mo' siamo ai faber.
quisque faber fortune sue (*)
j.de.vulgari.eloquentia (**)
(*) scrittura medievalizzante non dittongata.
(**) per i curiosoni: dimenticavo che dopo un anno passato a tradurre
catullo posso essere discretamente scurrile anche in latino. 4+1, +- come
nora orlandi.

 Faber the only and original since 1996
dubito...
http://groups.google.com/groups?as_q=&num=10&as_scoring=r&btnG=Cerca+con
+Google&as_epq=&as_oq=&as_eq=&as_ugroup=it.comp.lang.visual-basic&as_usu
bject=&as_uauthors=Faber&as_umsgid=&lr=&as_drrb=q&as_qdr=&as_miny=1995&a
s_minm=3&as_mind=29&as_maxy=2001&as_maxm=12&as_maxd=10
Faber
-------------------------
http://www.faberbox.com/
Home of Faber's Site
-------------------------


Ok da questo momento saro' Faber II :)
Cmq ho risolto per il file ascii, sono uno stupido, bisognava fare
iniziare  il loop una riga sopra.. :)

 iniziare  il loop una riga sopra.. :)
l'importante è risolvere  :)
Ciao,
Faber

 ha scritto nel messaggio
news:3c14d1b8....@news.tin.it...


Cut
come diceva il principe de Curtis
" ....est...est...est!"


io ho fatto lo SCiiiiiientifico ma anche un sacco di latino (prof .fissata)
scillavo fra 5 e 6 (una volta però su Cicero ho preso 7!)..ed oramai risali
a 20/22 anni fa...
ma non era
fortunae....?   "delle fortune"  mi ricordo che esisteva anche quiusque
Va be che tempi...quando Fastampa Pasquale traduceva "Paulo post"  dopo
Paolo!
P-) sigh!
Quanto è bella giovinezza
che si passa tuttavia
chi vuol esser lieto sia
con la figlia o la zia!

 tu tu-tum tu (musichetta tetra di circostanza)
[taglio]
Wodka... stai quotando come un alcolizzato... :-)
Saluti
--
Stefano Zamboni (
sz...@libero.it
)
--------------------------------------------------------------
"If Bill Gates had a dime for every time a Windows box crashed...
...Oh, wait a minute, he already does."

 fortunae....?   "delle fortune"  mi ricordo che esisteva anche quiusque
Per questo ha detto "non dittongata". :-P
Bye, G.

vero....
m....v p = me ne vado a pranzo!
(quotazione + essenziale di cosě!)

 il faber del meeting?
direi di no  :\
Faber

 -------------------------
E ci voleva questo post per riuscire a ripescare il tuo sito :)
Ciao

 E ci voleva questo post per riuscire a ripescare il tuo sito :)
...basta chiedere  :)
Ciao
Faber

"Paperino" <non...@lo.dico> ha scritto


il signore si' che sa leggere.
inoltre:
1. fortunae vuol dire "della fortuna", al singolare.
2. il genitivo si scriverebbe cuiusque...
a jque

 po'.
nono, ci sono eccome  ;)
Ciao
Faber