yashar_2006
دوشنبه 12 تیر 1396, 03:21 صبح
سلام
دوستان من امروز اولین بار .net نصب کردم به علت اینکه باید یه پروژه کلاسی تحویل بدم
اما واقعا هیچی از دات نت نمیدونم
میخواد با دراگ و دراپ یه فایل تکست تو برنامه اونو فایل رو تبدیل کنه به utf8 و ذخیره کنه
من این کد رو پیدا کردم ولی میدونم اصلا کار نمیکنه
لطفا راهنمایی کنید
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
Dim strArray As String()
Dim str As String
Dim reader As StreamReader
Dim str2 As String
Dim writer As StreamWriter
Dim flag As Boolean
strArray = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
If (Not ((Path.GetExtension(strArray(0)) = ".txt") Is 0) Is Nothing) Then
GoTo
End If
Try
str = strArray(0)
reader = New StreamReader(str, Encoding.GetEncoding("Windows-1256"))
str2 = reader.ReadToEnd
reader.Close()
writer = New StreamWriter((str.Substring(0, (str.Length - 4)) & ".edited.txt"), 0, Encoding.UTF8)
writer.Write(str2)
writer.Close()
GoTo
Catch obj1 As Object
MessageBox.Show("Bad or corrupted file!")
GoTo
End Try
GoTo
MessageBox.Show("Unknown file type!")
Return
End Sub
در حد اماتور از بیسیک 6 سر در میارم ولی از دات نت هیچی نمیدونم
لطفا راهنمایی کنید . در ضمن میخوام نیاز به آپدیت ویدوز نباشه و .دات نت فرامورک نباشه و روی همه سیستم ها اجرا بشه
دوستان من امروز اولین بار .net نصب کردم به علت اینکه باید یه پروژه کلاسی تحویل بدم
اما واقعا هیچی از دات نت نمیدونم
میخواد با دراگ و دراپ یه فایل تکست تو برنامه اونو فایل رو تبدیل کنه به utf8 و ذخیره کنه
من این کد رو پیدا کردم ولی میدونم اصلا کار نمیکنه
لطفا راهنمایی کنید
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
Dim strArray As String()
Dim str As String
Dim reader As StreamReader
Dim str2 As String
Dim writer As StreamWriter
Dim flag As Boolean
strArray = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
If (Not ((Path.GetExtension(strArray(0)) = ".txt") Is 0) Is Nothing) Then
GoTo
End If
Try
str = strArray(0)
reader = New StreamReader(str, Encoding.GetEncoding("Windows-1256"))
str2 = reader.ReadToEnd
reader.Close()
writer = New StreamWriter((str.Substring(0, (str.Length - 4)) & ".edited.txt"), 0, Encoding.UTF8)
writer.Write(str2)
writer.Close()
GoTo
Catch obj1 As Object
MessageBox.Show("Bad or corrupted file!")
GoTo
End Try
GoTo
MessageBox.Show("Unknown file type!")
Return
End Sub
در حد اماتور از بیسیک 6 سر در میارم ولی از دات نت هیچی نمیدونم
لطفا راهنمایی کنید . در ضمن میخوام نیاز به آپدیت ویدوز نباشه و .دات نت فرامورک نباشه و روی همه سیستم ها اجرا بشه