Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Problem z line delimiterami przy zapisie z DataGridView


Rekomendowane odpowiedzi

Opublikowano

Cześć. Mam pewien problem, ponieważ próbuję skonwertować zestaw danych do interpretacji przez inny skrypt. Pojawia się problem przy zapisie. Okazuje się bowiem, że przy zapisie na końcu linii poza LF (Line Feed) wskakuje jeszcze CR (Carriage Return). W oryginalnym, przykładowym zestawie danych na końcu linni znajduje się wyłącznie LF. Próbowałem zapisywać skrypt, otwierać go ponownie i używać Replace(vbCr, vbnullstring), ale po ponownym zapisie znowu CR był na końcu linii.

1376767965-U94665.jpg

Zestaw danych pierwotnie ładowałem do Listboxa, ale myślałem, że to może powodować problem i przesiadłem się na DataGridView.

Do zapisu używam poniższego kodu

Dim savefile As New SaveFileDialog
        savefile.Filter = "Pliki Tekstowe|*.txt"
        If savefile.ShowDialog = Windows.Forms.DialogResult.OK Then
            Using theWriter As New System.IO.StreamWriter(savefile.FileName)
                                For Each row As DataGridViewRow In Me.DataGridView2.Rows
                    If Not row.IsNewRow Then
                        Dim values As New List(Of String)
                        For Each cell As DataGridViewCell In row.Cells
                            values.Add(CStr(cell.Value))
                        Next
                        theWriter.WriteLine(String.Join(vbTab, values.ToArray))
                    End If
                Next
                theWriter.Close()
            End Using 
            MsgBox("zapisano")
        End If
Czy coś da się z tym zrobić? z góry dziękuję za odpowiedź i pozdrawiam
57199140501148694665.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...