Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Eliminazione riga da TXT
Forum - Visual Basic 6 - Eliminazione riga da TXT

Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 19:52
Giovedì, 16/01/2014
Salve a tutti, spero mi aiuterete a risolvere questo piccolo problema...
Ho un file di testo del quale devo sostituire alcune parti ma anche eliminare qualche riga.

Ho usato questo codice:

Codice sorgente - presumibilmente Plain Text
  1. SNextLine = Replace$(SNextLine, SNextLine, "")


Ma così facendo rimane una riga vuota!
Mentre io voglio togliere la riga totalmente e fare in modo che quella precedente e quella successiva a quella da eliminare diventino consecutive.

Ho cercato in Internet e pare un problema comune ma non ho trovato una risposta convincente...
Riuscite a farmi usare sempre il Replace o devo cambiare approccio?

Grazie anticipatamente

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 6402
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 22:26
Giovedì, 16/01/2014
Ma SNextLine cosa è? Una stringa?

E qual è il resto del codice?

In generale, per eliminare una linea devi leggere il file e scriverne un altro senza quella linea.

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
PM Quote
Avatar
dylan666 (Normal User)
Pro


Messaggi: 129
Iscritto: 08/09/2009

Segnala al moderatore
Postato alle 17:48
Venerdì, 17/01/2014
Ho capito l'errore.

Prima il codice per ricostruire il testo riga per riga era questo:

Codice sorgente - presumibilmente Plain Text
  1. txt_risultati.Text = txt_risultati.Text & SNextLine & vbCrLf


Edesso ho creato una variabile Boolean chiamata SaltaRiga che decide se mettere o no il ritrorno a capo dopo la riga:

Codice sorgente - presumibilmente VB.NET
  1. If SaltaRiga = True Then
  2. txt_risultati.Text = txt_risultati.Text & SNextLine
  3. Else
  4. txt_risultati.Text = txt_risultati.Text & SNextLine & vbCrLf
  5. End If

Ultima modifica effettuata da dylan666 il 17/01/2014 alle 18:01
PM Quote
Avatar
TheDarkJuster (Member)
Guru^2


Messaggi: 1620
Iscritto: 27/09/2013

Segnala al moderatore
Postato alle 22:39
Venerdì, 17/01/2014
basta che su testo da sostituire ci metti anche \n alla fine se ho capito bene........

PM Quote