/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Fjerne tekst i en txt fil
Fra : Lars Haugaard Jensen


Dato : 24-01-02 19:12

Jeg har lavet en simpel .BAT fil som gemmer en af min mapper med alle dens
undermapper og sorterer dem i en txt:

dir /ad /b /s /on > oversigt.txt

jeg får så en txt hvor der står noget lignende

G:\FTP\Bin
G:\FTP\Pub
G:\FTP\Download
G:\FTP\Upload
G:\FTP\Blabla
G:\FTP\Blabla\blablabla
....
nu vil jeg gerne have et nyt program kodet i VB6 som kan fjerne "G:\FTP\" i
hver linie. Jeg har set det før et sted, men kan ikke huske hvordan man gør.



 
 
Tomas Christiansen (24-01-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 24-01-02 22:31

Lars Haugaard Jensen skrev:
> G:\FTP\Bin
> G:\FTP\Pub
> G:\FTP\Download
> G:\FTP\Upload
> G:\FTP\Blabla
> G:\FTP\Blabla\blablabla
> ...
> nu vil jeg gerne have et nyt program kodet i VB6 som kan fjerne
"G:\FTP\" i
> hver linie. Jeg har set det før et sted, men kan ikke huske hvordan
man gør.

Hvilken del af opgaven volder dig problemer?

1. Læse fra en fil?
2. Skrive til en fil?
3. Erstat en tekst med en anden?

Løsningen på pkt. 3 kunne f.eks. være:

NyTekst = Replace(GlTekst, "G:\FTP\", "")

-------
Tomas


Lars Haugaard Jensen (28-01-2002)
Kommentar
Fra : Lars Haugaard Jensen


Dato : 28-01-02 19:06


"Tomas Christiansen" skrev i en meddelelse
> 3. Erstat en tekst med en anden?
>
> Løsningen på pkt. 3 kunne f.eks. være:
>
> NyTekst = Replace(GlTekst, "G:\FTP\", "")
>
[SNIP]

kan du være lidt mere præsis? jeg har indtil videre skrevet
-------
Open "G:\FTP\oversigt.txt" For Input As #1
Do Until EOF(1)
Input #1, GlTekst
Nytekst = Replace(GlTekst, "G:\FTP\", "")
Loop
Close #1
--------
men kan ikke helt finde ud af det. kom gerne med et eksempel

Lars



Tomas Christiansen (28-01-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 28-01-02 22:47

Lars Haugaard Jensen skrev:
> kan du være lidt mere præsis?

Hvad med:

Dim TekstLinie As String
Dim IndFil As Integer
Dim UdFil As Integer
IndFil=FreeFile
Open "G:\FTP\oversigt.txt" For Input As #IndFil
UdFil=FreeFile
Open "G:\FTP\oversigt.txt.ny" For Output As #UdFil
Do Until EOF(IndFil)
Input #IndFil, TekstLinie
Print #UdFil, Replace(TekstLinie, "G:\FTP\", "")
Loop
Close #UdFil
Close #IndFil

Hvis du herefter vil fjerne filen "G:\FTP\oversigt.txt" og omdøbe
filen "G:\FTP\oversigt.txt.ny", kan det gøres med noget i retning af:

Kill "G:\FTP\oversigt.txt"
Name "G:\FTP\oversigt.txt.ny" As "G:\FTP\oversigt.txt"

-------
Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste