再書き込みF＃コード

Question

可能性の重複：

Re-write F# code in VB.NET

いくつかの時間前、私はいくつかのF＃プログラミングは、次のコードは、/デシリアライズのfloat32シリアル化するために使用されませんでした配列：

#light 
open System 
open System.IO 
open System.Runtime.Serialization 
open System.Text 

let write(x : float32[]) = 
    let ds = new DataContractSerializer(typeof<float32[]>) 
    let ms = new MemoryStream() 
    ds.WriteObject(ms, x) 
    ms.ToArray() 

let read(x : byte[]) = 
    let ds = new DataContractSerializer(typeof<float32[]>) 
    let ms = new MemoryStream(x) 
    ds.ReadObject(ms) :?> float32[] 

let x = [|1.0f; 2.0f; 3.0f|] 
let xb = write(x) 
let y = read(xb) 
printfn "x = %A" x 
printfn "y = %A" x 
printfn "Done" 

しかし、今日では、私はVB.NETでいくつかのプログラミングをして浮動小数点数列を直列化/逆直列化する必要があります32配列を再度参照してください。 F＃プログラミングはGUIには適していないので、私の現在のプログラミングにはGUIが必要です。 上記のコードをVB.NETでどのように書き直すことができるかを知りたい。 たとえば、私はfloat32配列を持っています（VB.NETのどのデータ型がF＃のfloat32配列に相当するのかわかりません）の（1.0、2.0、3.0）;私はそれをDataContractSerializerを使用してシリアル化し、それから私はまだ同じfloat32配列を得ることができるようにそれを読んでいます。 コードを共有してください。 ありがとう、素敵な一日を！ ジョン

Answer 1

多かれ少なかれ、この

Public Function write(x As [Single]()) As Byte() 
    Dim ds = New DataContractSerializer(GetType([Single]())) 
    Dim ms As New MemoryStream() 
    ds.WriteObject(ms, x) 
    Return ms.ToArray() 
End Function 

Public Function read(x As Byte()) As [Single]() 
    Dim ds As New DataContractSerializer(GetType(Singlet32())) 
    Dim ms As New MemoryStream(x) 
    Return DirectCast(ds.ReadObject(ms), [Single]()) 
End Function 

私はあなたがここからそれを取ることができると思いますか？