Stringhe visual basic

[Misagi]

Salve
Vorrei sapere in che modo posso eliminare gli " quando scrivo stringhe su file .txt in visual basic...

For Index = 0 To 10
Write #f, "Pack #" & (Index)
next Index

il risultato è
"Pack #0"
"Pack #1"
"Pack #2" ...

vorrei togliere tutti quei apici

[mslv]

usa il metodo Print al posto di Write...


veramente non ne conosco le differenze solo che con i file di testo print
funziona sempre senza apici....

For Index = 0 To 10
Print #f, "Pack #" & (Index)
next Index

[Misagi]

Originariamente inviato da mslv
usa il metodo Print al posto di Write...


veramente non ne conosco le differenze solo che con i file di testo print
funziona sempre senza apici....

For Index = 0 To 10
Print #f, "Pack #" & (Index)
next Index

Grazie mille ho risolto ...c'è sempre da imparare ihhihi grazie ancora

[Misagi]

Un'altra domanda...come posso contare le righe in un file .txt? Potreste indicarmi il codice da utilizzare?

[mslv]

Ehem... veramente non me lo ricordo proprio bene...

[Zagor HW]

Originariamente inviato da Misagi
Un'altra domanda...come posso contare le righe in un file .txt? Potreste indicarmi il codice da utilizzare?

Se ti dovesse interessare ancora:

Devi usare la funzione lof ( che sta per la lunghezza del file)
L'unico inconveniente è che il valore restituito è in byte quindi bisogna utilizzare un trucchetto per poterlo trasformare il numero di record:

lunghezza = (Fix(LOF(1) * 0.014)) + 1

0.014 è il valore approssimato che da il rapporto fra la lunghezza in byte e il numero effettivo dei record, basterà quindi moltiplicarlo per la lunghezza in byte del file, toglierci la parte decimale e aggiungerci 1 e il gioco è fatto!

Spero di essere stato chiaro... Ciao!!!

[Misagi]

Originariamente inviato da Zagor HW
Se ti dovesse interessare ancora:

Devi usare la funzione lof ( che sta per la lunghezza del file)
L'unico inconveniente è che il valore restituito è in byte quindi bisogna utilizzare un trucchetto per poterlo trasformare il numero di record:

lunghezza = (Fix(LOF(1) * 0.014)) + 1

0.014 è il valore approssimato che da il rapporto fra la lunghezza in byte e il numero effettivo dei record, basterà quindi moltiplicarlo per la lunghezza in byte del file, toglierci la parte decimale e aggiungerci 1 e il gioco è fatto!

Spero di essere stato chiaro... Ciao!!!

Grazie mille

[matpez]

Oppure se nn lavori con i ricord, ma solo con dei file da te creati ti conviene usare questo metodo:

  Dim nFreeFile     As Integer
  Dim sAux          As String
  Dim nI            As Integer
  
  
  nI = 0
  nFreeFile = FreeFile
  Open "D:\Cena.txt" For Input As #nFreeFile
    While Not EOF(nFreeFile)
      Line Input #nFreeFile, sAux
      nI = nI + 1
    Wend
  Close #nFreeFile
  
  MsgBox "Rughe del file: " & nI

[Zagor HW]

Originariamente inviato da matpez
Oppure se nn lavori con i ricord, ma solo con dei file da te creati ti conviene usare questo metodo:
[/code]

Scusa mi potresti spiegare che convenienza c'è visto che con un'istruzione si risolve tutto? (Non è per critica nei tuoi confronti... è solo per un info visto che non sono ancora molto esperto VB)

[matpez]

Il tuo sistema è ottimo se su calcola la dimensione di un record e la si moltiplica per la dimensione del file, perchè si capisce quanti record hai dentro.

Ma moltiplicare per una costante in questo caso nn è correttissimo (a mio parere) perchè tu potresti anche avere una riga sola ed il tuo calcolo te ne porterebbe ad averne di più.

Invece tirando su riga per riga, cioè fino a che il nn trova il carattere ascii 10 e 13 allora la conta come una riga unica!

[Zagor HW]

Ah ok chiaro grazie ciao!