Visualizzazione dei risultati da 1 a 2 su 2

Discussione: [VB] file di testo

  1. #1
    Utente di HTML.it
    Registrato dal
    May 2002
    Messaggi
    77

    [VB] file di testo

    SCusate la mia ignoranza, ma come mai nel programma qui sotto il file destinazione alla fine di ogno riga ha un carattere blank in fondo?
    Grazie Mille e buon lavoro a tutti
    ---------------------------------------------------------------------

    Private Sub Esegui_Click()
    detfile = destfile

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(detfile, True)
    a.Close


    Open sFile For Input As #1

    Open dfile For Output As #2

    Do While Not EOF(1)
    cont1 = 0
    Line Input #1, textline
    linedest = textline
    c = Mid(textline, 41, 1)
    If c = " " Then
    Else
    For cont = 1 To 5
    indice = 30 + cont
    c = Mid(textline, indice, 1)
    If c = "0" Then
    cont1 = cont1 + 1
    Else
    End If
    If cont1 = 5 And cont = 5 Then
    For Q = 1 To 15
    indice2 = 30 + Q
    indice3 = 35 + Q
    If Q <= 10 Then
    Mid(linedest,indice2,1)=Mid(textline,indice3, 1)
    Else
    Mid(linedest, indice2, 1) = " "
    End If
    Next Q

    Else
    End If



    Next cont
    End If



    Print #2, linedest


    Loop

    Close #1
    Close #2
    MsgBox "ESECUZIONE TERMINATA", , "Esecuzione Terminata"

    End Sub
    ---------------------------------------------------------------------

  2. #2
    Utente di HTML.it
    Registrato dal
    May 2002
    Messaggi
    77
    facendo len(linedest)
    la lunghezza della variabile è giusta 295!
    booo

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.