VisualBasic Conversion

[pudge1]

 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! ^^

[danasegarane]

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

You can do this in php using this one

[visualAd]

 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?