[VB] Text Bestanden Zonder ""

Pagina: 1
Acties:

  • Facer
  • Registratie: Januari 2002
  • Niet online

Facer

Ken net.....

Topicstarter
Ben bezig met een programma aan het maken die tekst inleest en dan tekst toevoegd en dan de tekst weer wegschrijft.

Maar als ik dan naar het resultaat kijk dan krijg ik steeds een " bij het begin en het eind van een regel.

Hoe kan ik het doen dat er geen " worden toevoegd bij de uitvoer ?

Verwijderd

Ligt er maar aan hoe je dat nu doet
code:
1
2
3
naam = InputBox ("Wat is uw naam?")
boodschap = "Hello, " & naam
MsgBox boodschap

  • Facer
  • Registratie: Januari 2002
  • Niet online

Facer

Ken net.....

Topicstarter
Op deze manier doe ik het :
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim keren As Integer
Dim invoer(1 To 100) As String
Dim i As Integer

Private Sub cmdMaken_Click()
FileName = App.Path & "\CHKBOOK.TXT"
'Uit het bestand lezen
Open FileName For Input As #1
Do Until EOF(1)
    i = i + 1
    If i = 1 Then
      Input #1, Program_regel
    Else
      Input #1, invoer(i)
    End If
Loop
Close #1

i = 1
FileName = App.Path & "\TEMP.TXT"
'Alles in het bestand zetten
Open FileName For Output As #2
Write #2, Program_regel
Do Until i = 10
    Write #2, invoer(i)
    i = i + 1
Loop
Close #2

End Sub

  • ParaNoiMia
  • Registratie: Mei 2000
  • Laatst online: 05-09 11:47
ipv write print gebruiken

  • Facer
  • Registratie: Januari 2002
  • Niet online

Facer

Ken net.....

Topicstarter
Thnx hij werkt nu ;)