آموزش: آموزش اضافه کردن رشته های فایل Resx . به DataTable و نمایش در DtataDrid

در این ویدئو ریسورس های رشته ای از یک فایل ریسورس (Resources File) .ResX به DataTable اضافه می شه که در DataGrid نمایش داده بشن....

https://aparat.com/v/QLX9s

ضمیمه 154991

 

    Dim OFD As New OpenFileDialog With {.Filter = "Resources File|*.resx"}

        Dim FileName As String = ""

        With OFD

            .SupportMultiDottedExtensions = False

            .Multiselect = False

ReBrowse:

            If .ShowDialog(Me) = DialogResult.Cancel Then Exit Sub

            FileName = .FileName

            If IO.Path.GetFileNameWithoutExtension(FileName).Cont  ains(".") = True Then

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = IO.Path.GetFileNameWithoutExtension(FileName)

                FileName = String.Format("{0}\{1}.resx", FileIO.FileSystem.GetParentPath(.FileName), FileName)

            End If

            Me.ToolStripTextBox1.Text = FileName

            resReader = New Resources.ResXResourceReader(FileName)

            Resources.Clear()

            Resources.Add("(Default)", resReader)

            Dim Name, Value As Object

            resReader.GetEnumerator.Reset()

            Dim dict As IDictionaryEnumerator = resReader.GetEnumerator

            Do While dict.MoveNext = True

                ' resSet.GetEnumerator.MoveNext()

                Name = dict.Key

                Value = dict.Value

                If TypeOf (Value) Is String Then

                    With MultiLanguageDataTable

                        .Rows.Add(Name, Value)

                    End With

                End If

            Loop

               End With

Dim ResName, Value As String
With MultiLanguageDataTable
For Each Resource As KeyValuePair(Of String, String) In Resources
ResWriter = New Resources.ResXResourceWriter(Resource.Value)
For Each row As DataRow In .Rows
ResName = row.Item(0).ToString
Value = row.Item(Resource.Key).ToString
ResWriter.AddResource(ResName, Value)
Next
ResWriter.Generate()
ResWriter.Close()
Next
End With
MsgBox("Update Completed Successfuly.", MsgBoxStyle.Information)