[justforit]

السلام عليكم ورحمة الله و بركاته

كيف نعالج خطأ بسبب حروف غير واضحة ...اليكم الكود:

كود :

Private Function GetfileName(ByVal aurl As String) As String
    Dim n As String = ""
    Try
        Dim wc2 As New WebClient
        wc2.Encoding = Encoding.UTF8
        wc2.Headers.Add("cookie", cok)
        wc2.DownloadData(aurl)
        Dim cd As String = wc2.ResponseHeaders("Content-Disposition").ToString
        n = New ContentDisposition(cd).FileName
        Return n 'ew ContentDisposition(cd).FileName
        'FormatException
    Catch ex As FormatException
        MsgBox(Err.Description)
    Catch ex As Exception
        Return Nothing
    End Try
End Function

الخطا ان الاسم يظهر بحروف غريبة ونوع الخطأ من نوع FormatException

كيف اعالجه بحيث يستمر البرنامج ولا يتخطى بسبب هذا الخطأ؟

شكر الله لكم جميعا

[Zuhare]

جرب تغيير UTF8 الى نوع اخر

[justforit]

بصراحة وجدت طريقة افضل من اللتي لدي و حصلت  عليها من قوقل قديما

بحثت مرة اخرى لكي انسخ الكود لكن لم يظهر الكود الذي لدي الان لكن اظن انه نفس المؤدى

كود :

Using client As New WebClient()
   Dim uri As New Uri("http://example.com/download")
   Dim data As Byte() = client.DownloadData(uri)

   Dim filename As String = ""
   If client.ResponseHeaders("Content-Disposition") IsNot Nothing Then
       Dim contentDisposition As String = client.ResponseHeaders("Content-Disposition")
       ' Parse the contentDisposition string to extract the filename
       ' For example: attachment; filename="document.pdf"
       Dim parts As String() = contentDisposition.Split(";")
       For Each part As String In parts
           If part.Trim().StartsWith("filename=") Then
               filename = part.Trim().Replace("filename=", "").Replace("""", "")
               Exit For
           End If
       Next
   End If

   ' Use the extracted filename or a default one
   If String.IsNullOrEmpty(filename) Then
       filename = "default_download.bin"
   End If

   ' Save the data to the file
   System.IO.File.WriteAllBytes(filename, data)
End Using

[Zuhare]

هل تريد فقط استخراج filename من headers الرابط؟

[justforit]

(25-10-25, 05:56 AM)Zuhare كتب : هل تريد فقط استخراج filename من headers الرابط؟

موضوعها سهل لكن الكود القديم يواجه مشكلة الترميز ...الان انتهىت المشكلة .
هذا هو الكود بعد ان اوقفت البرنامج ...الكود كان Function كامل اخذته فقط بهذه الصورة.

كود :

Dim fileData As Byte() = wc2.DownloadData(aurl)
Dim contentDisposition As String = wc2.ResponseHeaders("Content-Disposition")
If Not String.IsNullOrEmpty(contentDisposition) Then
    Dim fileName As String = ""
    If contentDisposition.Contains("filename=") Then
        fileName = contentDisposition.Substring(contentDisposition.IndexOf("filename=") + 9)
        fileName = fileName.Replace("""", "")
        fileName = Uri.UnescapeDataString(fileName)
        Return fileName
    End If
End If