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

[ROSTAM2]

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

https://aparat.com/v/QLX9s

154991 (https://aparat.com/v/QLX9s)



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 توضیح داده می شه ....

154993 (https://aparat.com/v/Ja6LN)

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)