VisualBasic Conversion

Code:

---

Dim sReturn As String
    Dim sFileData As String
   
    Open Left(sFileName, Len(sFileName) - 4) & ".wnc" For Binary As #1
    sFileData = Input(LOF(1), #1)
    sReturn = sDecompress(sFileData)
    Close #1
    Debug.Print Len(sReturn), Len(sFileData)
   
    Open Left(sFileName, Len(sFileName) - 4) & "2" & Right(sFileName, 4) For Output As #1
    Print #1, sReturn;
    Close #1

---

Can some code that exact thing for me in PHP? I had someone do it but they must have left out some part and I don't understand VB at ALL. Please and thank you! ^^

The above code read a file into as string varriable called sFileData

You can do this in php using this one

Quote:

---

Originally Posted by pudge1

Code:

---

Dim sReturn As String
    Dim sFileData As String
   
    Open Left(sFileName, Len(sFileName) - 4) & ".wnc" For Binary As #1
    sFileData = Input(LOF(1), #1)
    sReturn = sDecompress(sFileData)
    Close #1
    Debug.Print Len(sReturn), Len(sFileData)
   
    Open Left(sFileName, Len(sFileName) - 4) & "2" & Right(sFileName, 4) For Output As #1
    Print #1, sReturn;
    Close #1

---

Can some code that exact thing for me in PHP? I had someone do it but they must have left out some part and I don't understand VB at ALL. Please and thank you! ^^

---

What is the purpose of this code?