Jahapp, så var man tillbaka här med ännu en olöst fråga.Läsa text ur sig själv
Tidigare i vb6 så hade jag en fin kod som läste text som var inlagd i sin egen exe-fil (det är faktiskt en egen kompilerare jag gjort)
Tänkte göra precis samma program fast skrivet i .net.
Däremot upptäckte jag då att "Open" inte fungerade på samma sätt,
Såhär ser koden ut i vb6:
<code>
Public Function ReadEXE(sPath As String) As String
'Läs exe filen och få källkoden..
On Error GoTo Errorh
Dim FileData As String
Open sPath For Binary As #1 'öppna filen
FileData = Space$(LOF(1)) 'längd
Get #1, , FileData 'innehåll
Close #1 'stäng
ReadEXE = Mid(FileData, InStr(1, FileData, "KÄLLKOD:") + 4) 'få källkoden
Errorh:
If Err.Number <> 0 Then MsgBox "Fel #" & Err.Number & " : " & Err.Description, vbCritical, "Link Error"
End Function
</code>
Om man öppnar exe-filen i anteckningar så ser den ut som vad som helst, fast i slutet av filen så står då den egna källkoden som man gjort i programmet.
Egentligen behöver jag bara veta hur man öppnar filer för att läsa in dem i en variabel, men jag gav ut lite extra fakta om det även finns någon som kanske har ännu bättre tips eller idéer på hur man kan göra en bra kompilerare.
/Jonte