hjælp til console write.

Du vil skrive til en bestemt position i console vinduet ?

Ja, eller jeg vil gerne blive hvor jeg er... Dette reletere lidt til det andet spørgsmål du er igang med at besvare.

Jeg vil gerne kunne :

åbne en fil.
læse antal byte
lave en for / next for hver byte og så skrive ud..

f.eks

for i = 0 to totalbyte

console.write på bestemt location, blive på, 0,0 og skriver byte ud

next


er det til at forstå?

Ja

Det er dog nok ikke helt simpelt.

Jeg har et par ideer.

Men jeg skal lige eksperimentere lidt først.

Okay, glæder mig til at se det...

Det store af det lange er at jeg skal lave en copy funktion til binære filer, men jeg vil gerne kunne vise infomation om hvor lang den er nået efterhånden som den får overført data.

Vi taler mange gigabyte i hver fil, så den skal kunen holde til det, hvis du forstår

Hvornår regner du med at have noget? Jeg smider gerne nogle flere point..

Jeg får desværre først kigget på det i aften.

En gang imellem skal jeg også bestille lidt på arbejde.

okay.... Kan du hurtigt lige forklare mig hvordan jeg kan tage hver byte i et loop... Den du lavede på den anden fungere ikke...

Hvordan "fungerer ikke" ?

Det er copy pastet udfra noget kode der virker.

Det her:

---
  Dim path = "c:\temp.tmp"
        Dim binf As Stream = New FileStream(path, FileMode.Open)
        Dim c As Integer
        While (c = binf.ReadByte) >= 0
            'Console.Write(c)
            Console.Write(binf.ReadByte)
        End While
        binf.Close()

---

Den skriver 75000 men filen er på 56,09 MB

Hvor arbejder du ?

While (c = binf.ReadByte) >= 0
    Console.WriteLine(c)
End While

burde skrive 56 millioner linier ud.

Men jeg formoder egentligt at bytene skal skrive stil output filen og at du bare vil
hav een tæller ksrevet ud på skærmen. Korrekt ?

Det er korrekt...

Og den kan du først have parat til i aften?

Giv mig lige 30 minutter !

Det kan du tro... Mange tak...

Først selve kopieringen:

Imports System
Imports System.IO

Module Main
    Sub Copy(fnm1 As String, fnm2 As String)
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim c As Integer
        Dim n As Integer = 0
        Dim more as boolean = True
        While (more)
            c = f1.ReadByte
            If c >= 0 then
                f2.WriteByte(CType(c, Byte))
                n = n + 1
                If (n Mod 10000) = 0 Then
                    Console.WriteLine(n)
                End If
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
        Console.WriteLine(n)
    End Sub
    Sub Main()
        Copy("C:\z1.dat", "C:\z2.dat")
    End Sub
End Module

Og med en lidt smartere tæller:

Imports System
Imports System.IO

Module Main
    Sub Copy(fnm1 As String, fnm2 As String)
        Dim cr As String = Convert.ToChar(13)
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim c As Integer
        Dim n As Integer = 0
        Dim more as boolean = True
        While (more)
            c = f1.ReadByte
            If c >= 0 then
                f2.WriteByte(CType(c, Byte))
                n = n + 1
                If (n Mod 100000) = 0 Then
                    Console.Write(cr & n)
                End If
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
        Console.WriteLine(cr & n)
    End Sub
    Sub Main()
        Copy("C:\z1.dat", "C:\z2.dat")
    End Sub
End Module

OK ?

Det var LIGE det jeg skulle bruge...

Hvis vi så kan udvide den til at kunne tage alt fra f.eks c:\david

Og her er det både dirs og filer

Du skal nok få nogle flere point.

2 tillægs spørgsmål...

1. Er det muligt at putte hele byte størrelsen ned af filen før vi kopier?
2. Hvordan læser jeg variabler/parametre på min exe fil? f.eks copy.exe c:\david.aaa c:\peder.aaa

Alt kan lade sig gøre - stay tuned.

Lækkert arne...

Jeg takker mange gange for din hjælp.

Her er en version med " af ":

Imports System
Imports System.IO

Module Main
    Sub Copy(fnm1 As String, fnm2 As String)
        Dim cr As String = Convert.ToChar(13)
        Dim size As Integer = (new FileInfo(fnm1)).Length
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim c As Integer
        Dim n As Integer = 0
        Dim more as boolean = True
        While (more)
            c = f1.ReadByte
            If c >= 0 then
                f2.WriteByte(CType(c, Byte))
                n = n + 1
                If (n Mod 100000) = 0 Then
                    Console.Write(cr & n & " af " & size)
                End If
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
        Console.WriteLine(cr & n & " af " & size)
    End Sub
    Sub Main()
        Copy("C:\z1.dat", "C:\z2.dat")
    End Sub
End Module

Sub Main(ByVal args As String())
        Copy(args(0), args(1))
    End Sub

Ja men hvis jeg skal have dem fra exefilen? er det sådan så?

Ja

Ovenstående er dog kun med fulde filnavne

Directory kommer senere

Jeg har lige prøvet at lave en variant der skriver hver gang een helt procent af det hele er kopiret, men den vil hverken det ene eller den andet...

Er det ikke mjuligt at putte flere point på spørgsmålet, så du kan få noget mere for dit "arbejde"???

Sub Main(ByVal args As String())
        Dim files As String() = Directory.GetFiles(args(0))
        For Each f As String In files
            Copy(f, args(1) & f.Substring(args(0).Length))
        Next
    End Sub

http://expfaq.1go.dk/?id=33#flere_point_end_lovet

super... Jeg har sat det til 100, er det okay?

Helt fint

For filer større end 2 GB skal:

Dim n As Integer = 0

ændres til:

Dim n As Long = 0

Ok... Kan den ikke bare være long fra starten...

Er du sød at stable det sammen til 1 kode?

Og det med dirs det virker også for subdirs?

Og til så store filer vil jeg klart anbefale at læse ind i en 100KB eller 1MB buffer
af gangen fremfor kun at læse en enkelt byte af gangen.

hmmm, måske man så skulle lave et check på hvor stor filen er til at starte med og så derefter vælge buffer... Men det skalder vel også noget kode til..

Jeg prøver at lave en kombineret og forbedret udgave senere i aften ...

lækkert... Jeg sider lige og prøver at lave lidt guf, men siden nu med garanti er bedre end mig, så venter jeg med glæde :)

tak.

Hvordan står det til?

Her er et eksempel med Long og 100KB buffer:

Imports System
Imports System.IO

Module Main
    Sub Copy(fnm1 As String, fnm2 As String)
        Dim cr As String = Convert.ToChar(13)
        Dim size As Integer = (new FileInfo(fnm1)).Length
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim b(100000) As Byte
        Dim n As Long = 0
        Dim actual As Integer
        Dim more as boolean = True
        While (more)
            actual = f1.Read(b, 0, b.Length)
            If actual > 0 then
                f2.Write(b, 0, actual)
                n = n + actual
                Console.Write(cr & n & " af " & size)
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
        Console.WriteLine(cr & n & " af " & size)
    End Sub
    Sub Main()
        Copy("C:\z1.dat", "C:\z2.dat")
    End Sub
End Module

Sub CopyDir(dir1 As String, dir2 As String)
        Dim files As String() = Directory.GetFiles(dir1)
        For Each f As String In files
            Copy(f, dir2 & f.Substring(dir1.Length))
        Next
        Dim dirs As String() = Directory.GetDirectories(dir1)
        For Each d As String In dirs
            CopyDir(d, dir2 & d.Substring(dir1.Length))
        Next
    End Sub
    Sub Main(ByVal args As String())
        CopyDir(args(0), args(1))
    End Sub

Den sidste processer directories rekursivt.

Du må lige selv splejse dem sammen.

Tid at få lukket spørgsmålet ?