Detta ex.p fungerar ju om man vill läsa från Textbox till Textbox
Men om man vill läsa in en hel fil till Textboxen
Hur gör man då ?

Sören
-------------------------------------------------------------
Private Sub Command1_Click()
Text2.Text = Crypt(Text1.Text, 1, 6)
End Sub

Function CryptPart(Value As String) As String
Select Case Value
Case "01"
CryptPart = "10"
Case "04"
CryptPart = "40"
Case "10"
CryptPart = "01"
Case "42"
CryptPart = "20"
Case "43"
CryptPart = "30"
Case "4F"
CryptPart = "05"
Case Else
CryptPart = Value
End Select
End Function

Function Crypt(Value As String) As String
Crypt = CryptPart(Mid(Value, 1, 2)) & CryptPart(Mid(Value, 3, 2)) & CryptPart(Mid(Value, 5, 2))
End Function

>Detta ex.p fungerar ju om man vill läsa från Textbox till Textbox

Och hur skall kunna svara om man inte vet hur filen ser ut. ???

Private Sub Command1_click()
Text2 = Crypt(Mid$(Text1.Text, 1, 6))
End Sub
Function Crypt(Value As String) As String
Crypt = CryptPart(Mid(Value, 1, 2)) & CryptPart(Mid(Value, 3, 2)) & CryptPart(Mid(Value, 5, 2))
End Function
Function CryptPart(Value As String) As String
Select Case Value
Case "01"
CryptPart = "10"
Case "02"
CryptPart = "24"
Case "03"
CryptPart = "34"
Case "04"
CryptPart = "40"
Case "05"
CryptPart = "50"
Case "06"
CryptPart = "64"
Case Else
CryptPart = Value
End Select
End Function

Om man skriver 06 i Textboxen så kommer det ju att ändra sig
T.ex om man skriver 06 så blir det 64
Men jag undrar om man kan öppna en hel fil
Detta funkar ju bara på 12tecken, alltså "AA" hex
Så tanken är jag ska kunna öppna en hel hex fil

Går säker inte, men men kanske

Sören

Ok jag ser nu att du bara skickar ett argument de första 6 första i Text1.

Varför 6 ? vore naturligare med 4 eller 8

Du skall alltså läsa från en Hex fil med Open For Binary med Get statment ?
Men ok vi tar 6 åtgången.

Ja tanken är att jag ska kunna läsa in en hel fil på detta sätt
Och att man ska kunna ändra värden på hela filen