Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    accedere a linee di un testo differenti

    Quando apro un documento uso

    Open "nomefile" For Input As #1
    Line Input #1, variabile
    Close #1

    come faccio a salvare solo la seconda linea di questo file?

    grazie

    ciao
    E poi Martina lavava l'anitra miope!

    Pi greco

  2. #2
    Utente bannato
    Registrato dal
    Apr 2002
    Messaggi
    546
    n=len(variabile)
    tr="":riga=0:frase=""
    for i= 1 to n
    tr=mid(variabile,i,1) 'Leggo un carattere alla volta
    frase=frase+tr
    If Asc(tr) = 10 Then
    riga=riga+1
    if riga=2 then exit sub 'frase contiene la frase della seconda linea
    tr=""
    frase=""
    endif
    next n

  3. #3
    aaarrrggghhhh

    ma questo aprendo un file esterno?

    la variabile che devo leggere qual'è? (sigh non capisco proprio nulla)


    cmq l'ho messo dopo close #1 e mi da un errore nel next

    Mi puoi fare un esempio includendo anche l'apertura del file?
    E poi Martina lavava l'anitra miope!

    Pi greco

  4. #4
    grazie
    E poi Martina lavava l'anitra miope!

    Pi greco

  5. #5
    Utente bannato
    Registrato dal
    Apr 2002
    Messaggi
    546
    dim frase as string
    dim tr as string
    dim variabile as string

    Open "nomefile" For Input As #1
    Line Input #1, variabile
    Close #1

    n=len(variabile)
    tr="":riga=0:frase=""
    for i= 1 to n
    tr=mid(variabile,i,1) 'Leggo un carattere alla volta
    frase=frase+tr
    If Asc(tr) = 10 Then
    riga=riga+1
    if riga=2 then stop
    tr=""
    frase=""
    endif
    next n

    'quando il programma si blocca metti il puntatore del mouse sulla 'variabile frase

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.