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

[ROSTAM2]

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

https://aparat.com/v/QLX9s

Annotation 2023-10-05 203135.jpg

 

    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

[ROSTAM2]

نحوه ذخیره سازی ریسورس ها در Resources File بصورت برنامه نویسی

در این آموزش نحوه ذخیره سازی ریسورس های فایل Resources File توضیح داده می شه ....

Annotation 2023-10-06 200832.jpg

https://aparat.com/v/Ja6LN

        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)