Output / Input

Første problem. VB opfatter Print som en afart af WriteLn eller WriteLine, hvilket nogen gange er noget nisse. Prøv med Binary og Put.

sFilnavn = \"C:\\test.txt\"
Open sFilnavn For Binary As #1
Put #1,,Tekstfelt.Text
Close #1

Andet problem. Tjaaa... jeg har aldrig været ude for at vb gør så\'n med sådan nogle kbŠ‘Ž†b‘p¯²uOL‡|žjŒƒ‹‡b filer, men du kan komme uden om det, enten ved at læse filen gennem Scripting.FileSystemObject eller ved at åbne filen med Binary og læse den med Get.

spm. 1, skriv:

Print #1,Tekstfelt.Text;

Det lille semicolon i sidste linie gør der ikke bliver puttet ENTER/LINEFEED efter data

Spm. 2: Som WK skiver skal du åbne binært og indlæse med get metoden, den tager alle data uden hensyn til special karakterer...

Hvordan bruger jeg så \"Binary Get\" metoden, for her kan man jo ikke bare skrive:

sFilnavn = \"C:\\test.txt\"
Open sFilnavn For Binary As #1
Get #1,,Tekstfelt.Text
Close #1

Så vidt jeg husker kan man indlæse hele filen i et array og så samle det igen bagefter - jeg ved dog ikke om man kan i VB 5.0.

Function LoadBinFile(sFilnavn As String) As String
  Dim aBytes() As Byte
  Dim iFileNr As Integer
  iFileNr = Freefile
On Error Goto Err_Mystisk
  Open sFilnavn For Binary As #iFileNr
  Get #iFileNr,,aBytes
  Close #iFileNr
On Error Goto Err_Crap
  LoadBinFile = Join(aBytes)
  Exit Function
Err_Mystisk:
  MsgBox \"Øv, der opstod en fejl.\"
  Exit Function
Err_Crap:
  MsgBox \"Crap! Join() funktionen vil have et String Array i stedet for et Byte Array. Prøv med \"\"Dim aBytes() As String\"\" først i funktionen i stedet for \"\"Dim aBytes() As Byte\"\".\"
End Function

Hvis du dimmentionerer aBytes inden Get, så læser den kun UBound(aBytes) - LBound(aBytes) + 1 bytes af filen.

winkill: jeg har vist ikke fattet hvordan jeg skal bruge den, hvor kommer dataen ud er det Join(aBytes).

jeg har prøvet sådan her:

Private Sub Command1_Click()
Dim navn
navn = \"c:\\test.txt\"
Call LoadBinFile(navn, text1)
End Sub

men for fejl i navn, hvordan skal jeg kalle Function.

Dette burde virke...

Private Sub Command1_Click()
Dim navn
navn = \"c:\\test.txt\"
Text1 = LoadBinFile(navn)
End Sub

Husk, en sub returnerer ikke nødvendigvis data og kaldes med Call SubName(yadi,yaddi,ya)
Function returnerer en værdi på denne måde ReturVerdi = FunctionName(yadi,yaddi,ya)

-----------------------------
Compile error:

ByRef argument type mismatch
-----------------------------

error i \"navn\" ligger i linje:

Text1 = LoadBinFile(navn)

jeg har også prøvet med \"sFiler\" det er det samme.

Hmm... det kan den nok ikke så.

Så prøv sådan her - det er godt nok lidt langsomt hvis filerne bliver for store...

Private Sub Command1_Click()
  Dim strNavn As String
  strNavn = \"c:\\test.txt\"
  Text1.Text = LoadBinFile(strNavn)
End Sub

Function LoadBinFile(strFilename As String) As String
  Dim intFileNr As Integer
  Dim intCharPos As Long
  Dim bytChar As Byte
  Dim strBuffer As String
  intFileNr = FreeFile
  Open strFilename For Binary As #intFileNr
  While intCharPos < FileLen(strFilename)
    intCharPos = intCharPos + 1
    Get #intFileNr, intCharPos, bytChar
    strBuffer = strBuffer & Chr(CLng(bytChar))
  Wend
  Close #intFileNr
  LoadBinFile = strBuffer
End Function

winkill: Ja det er langsomt. og så laver den en [ENTER] i bunden af teksten, og det må den ikke... :)

Det fatter jeg ikke, det gør den ikke her... hverken med test.txt, test.jpg, test.doc eller test.dat (med forskelligt indhold).

Jeg laver lige en opdatering som ikke er helt så langsom...

Her er en MEGET hurtigere version...

Function LoadBinFile(strFilename As String) As String
  Dim intFileNr As Integer
  Dim strBuffer As String
  Dim lngFilelen As Long
  lngFilelen = FileLen(strFilename)
  strBuffer = String(lngFilelen, \" \")
  intFileNr = FreeFile
  Open strFilename For Binary As #intFileNr Len = lngFilelen
  Get #intFileNr, , strBuffer
  Close #intFileNr
  LoadBinFile = strBuffer
End Function

Her er den igen... Denne version fjerner de to sidste bytes, så brug den hvis du får en [ENTER] sidst i de indlæste data (Det må være et VB < 6.0 fænomen)

Function LoadBinFile(strFilename As String) As String
  Dim intFileNr As Integer
  Dim strBuffer As String
  Dim lngFilelen As Long
  lngFilelen = FileLen(strFilename)
  strBuffer = String(lngFilelen, \" \")
  intFileNr = FreeFile
  Open strFilename For Binary As #intFileNr Len = lngFilelen
  Get #intFileNr, , strBuffer
  Close #intFileNr
  LoadBinFile = Left(strBuffer, lngFilelen - 2)
End Function

winkill: Det virker fint, jeg siger mange TAK for dit arbejde. ;-)