0

Streamwriter for Windows Store をエミュレートする VB コードを持っている人はいますか?

StorageFolder クラスに置き換えられたことは知っていますが、MSDN には VB サンプルがなく、c# の例から適切に翻訳できないようです。どんな助けでも大歓迎です。テキスト (CSV) をファイルに書き込んでドキュメント フォルダーに保存しようとしています。以下の Windows ストアのコードでは、ストリームライターを薄暗くしようとすると、strPath の代わりにストリームが必要になります。（ピッカーダイアログでも遊んでいますが、それが次のハードルになるかもしれません）。

Dim strpath As String = Windows.Storage.Pickers.PickerLocationId.DocumentsLibrary & "\" & strFileName
    'Build String for file*******************
    Dim swExport As StreamWriter = New StreamWriter(strpath)

    swExport.Flush()

    For x = 0 To intCount - 1
        strLine = "WriteSomeText"
        swExport.WriteLine(strLine)
    Next x
4

2 に答える 2

0

おそらく、最も簡単なアプローチは、MemoryStreamif you likeを使用することですStreamWriter。したがって、次のようになります。

Dim sessionData As New MemoryStream()
' TODO: stage data in sessionData
Dim swExport As StreamWriter = New StreamWriter(sessionData)

swExport.Flush()

For x = 0 To intCount - 1
    strLine = "WriteSomeText"
    swExport.WriteLine(strLine)
Next x

Dim file As StorageFile = await ApplicationData.Current.RoamingFolder.CreateFileAsync("towns.json", CreationCollisionOption.ReplaceExisting)
Using (fileStream As Stream = await file.OpenStreamForWriteAsync())
    sessionData.Seek(0, SeekOrigin.Begin)
    await sessionData.CopyToAsync(fileStream)
    await fileStream.FlushAsync()
End Using
于 2013-08-25T16:29:20.960 に答える
0

難しくしすぎました。ファイルに書き込むには、storagefolder と storagefile を使用する必要がありました。コードに FileSavePicker も含めました (filetypechoices は必須であることに注意してください)。

Private Async Function btnExport_Click(sender As Object, e As RoutedEventArgs) As Task
    'Calls Filepicker to determine location
    'Calls Sqlite to select ALL
    'Creates CSV file to be saved at location chosen


    'save to file
    Dim intCount As Integer = "5"
    Dim x As Integer
    Dim strLine As String               'hold each line for export file


    'Create FileName based on date
    Dim strDate As String = Date.Today.ToString("MMddyyyy")
    Dim strFileName As String = "Export" & strDate & ".csv"

    ' Configure save file dialog box 
    Dim dlgPicker As New Windows.Storage.Pickers.FileSavePicker

    'add types for picker (manditory field)
    Dim types = New List(Of String)
    types.Add(".csv")
    types.Add(".txt")

'set picker parameters
    dlgPicker.SuggestedStartLocation = Windows.Storage.Pickers.PickerLocationId.Downloads
    dlgPicker.SuggestedFileName = strFileName '"Document"               ' 
    dlgPicker.FileTypeChoices.Add("CSV/TXT", types)             'manditory 
    dlgPicker.DefaultFileExtension = ".csv"                 'Filter files by extension

    dlgPicker.CommitButtonText = "Save"

    ' Show save file dialog box 
    Dim SaveCSV = Await dlgPicker.PickSaveFileAsync()

    '************************get data************
    Dim sbExport As Text.StringBuilder = New Text.StringBuilder
    sbExport.AppendLine(strHeader)
    For x = 0 To intCount - 1
        strLine = "Get the text you want to write here"
        sbExport.AppendLine(strLine)
    Next x
    '************************************
    'write data to file
    Await FileIO.WriteTextAsync(SaveCSV, sbExport.ToString)


    Dim mb As MessageDialog = New MessageDialog("Done")
    Await mb.ShowAsync()


End Function
于 2013-08-31T12:24:27.847 に答える