برنامه تبدیل فایلهای زرنگار به ورد و اچ تی ام ال

شروع موضوع توسط Salar ‏4 ژانویه 2006 در انجمن نرم افزار

  1. Salar

    Salar Active Member

    ارسال‌ها:
    6,048
    تشکر شده:
    75
    امتیاز دستاورد:
    36
    کسی برنامه ای برای تبدیل فایلهای زرنگار به ورد و یا اچ تی ام ال سراغ داره؟
    ممنون میشم اگه دارید آپلود کنید!!
     
    نوشته شده توسط Salar در ‏4 ژانویه 2006
    amfar از این پست تشکر کرده است.
  2. stranger_in_rain

    stranger_in_rain Member

    ارسال‌ها:
    183
    تشکر شده:
    27
    امتیاز دستاورد:
    16
    سلام.
    من این رو 2 ترم پیش برای یکی از استادام download کردم، نمیدونم درست کار میکنه یا نه اما میزارم شاید بدردت بخوره ...
    اسمش Noor Convertor هستش .

    http://rapidshare.de/files/10355263/noorconv.zip.html
     
    نوشته شده توسط stranger_in_rain در ‏4 ژانویه 2006
    Fardin67 از این پست تشکر کرده است.
  3. HAMED SEIFI

    HAMED SEIFI Member

    ارسال‌ها:
    198
    تشکر شده:
    10
    امتیاز دستاورد:
    16
    سلام
    از كانورتور نرم افزار پروين هم ميتونيد استفاده كنيد
    موفق باشيد
     
    نوشته شده توسط HAMED SEIFI در ‏4 ژانویه 2006
  4. Salar

    Salar Active Member

    ارسال‌ها:
    6,048
    تشکر شده:
    75
    امتیاز دستاورد:
    36
    من نرم افزار پروین رو ندارم!
    stranger_in_rain ممنون من اینو امتحان می کنم! امیدوارم که کار کنه.
     
    نوشته شده توسط Salar در ‏5 ژانویه 2006
  5. Salar

    Salar Active Member

    ارسال‌ها:
    6,048
    تشکر شده:
    75
    امتیاز دستاورد:
    36
    stranger_in_rain چاکرم
    می دونی کار منو 3 ماه جلو انداختی
    وحشتناک ممنون:razz: :razz: :razz: :razz: :razz:
     
    نوشته شده توسط Salar در ‏5 ژانویه 2006
  6. stranger_in_rain

    stranger_in_rain Member

    ارسال‌ها:
    183
    تشکر شده:
    27
    امتیاز دستاورد:
    16
    من نوکرتم :) خوشحالم به دردت خورد :)
     
    نوشته شده توسط stranger_in_rain در ‏5 ژانویه 2006
  7. rin9mast3r

    rin9mast3r Member

    ارسال‌ها:
    80
    تشکر شده:
    7
    امتیاز دستاورد:
    6
    مرسی کلی بدرد ما هم خورد
     
    نوشته شده توسط rin9mast3r در ‏7 مارس 2007
  8. Fardin67

    Fardin67 New Member

    ارسال‌ها:
    1
    تشکر شده:
    0
    امتیاز دستاورد:
    1
    ممنون از معرفی این برنامه کوچولو و بدردبخور، گرچه هنوز استفاده نکرده‌مش.
    برای علاقمندان به دریافت: لینک برنامه در رپیدشیر که در بالا اشاره شده از بین رفته ولی هنوز در این لینک زیر قابل دریافت است (با تشکر از سپهرنوش در سایت پرشین فوروم):
    http://wdl.persiangig.com/pages/dow...persiangig.com/persianforum/NoorConverter.zip
     
    نوشته شده توسط Fardin67 در ‏14 می 2012
  9. aminiwolf

    aminiwolf New Member

    ارسال‌ها:
    1
    تشکر شده:
    0
    امتیاز دستاورد:
    1
    حذف کثیفی و اضافات فایل تبدیل شده از زرنگار

    سلام
    این فایل تبدیل کننده زرنگار هست ((دریافت فایل))که فایل های زرنگار جدید رو هم پشتیبانی میکنه!:green:
    فقط فایلهای جدید بعد از تبدیل کثیف هستند و کلی تگ اضافه دارند و همچنین اعداد مقلوب شده هستند که برای رفع این مشکل هم یک ماکرو نوشتم ((دریافت ماکرو)) که همراه فایل هستش و با اجرای اون روی فایل تمام تگ های اضافه فایل تبدیل شده زرنگار حذف میشه و اعداد دوباره مقلوب میشن و به حالت اولشون برمیگردند.
    امیدوارم لذت ببرید.:rose:

    کد (Text):
    Function Inverter(nb As String) As String    Dim bn As String
        For i = 1 To Len(nb)
            bn = Mid(nb, i, 1) & bn
        Next i
        Inverter = bn
    End Function
    Sub invert()
    Dim a As Long
        Selection.GoTo What = wdGoToLine, Which = wdGoToFirst
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
               .Text = "([!0-9])([0-9]@)([!0-9])"
               '.Replacement.Text = "\1" & a="\2" inverter(a) & "\3"
               .Forward = True
               '.Wrap = wdFindContinue
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchKashida = False
               .MatchDiacritics = False
               .MatchAlefHamza = False
               .MatchControl = False
               .MatchWildcards = True
               .MatchSoundsLike = False
               .MatchAllWordForms = False
               '.Execute Replace:=wdReplaceOne
               While .Execute
                   Selection.Text = Inverter(Selection.Text)
               Wend
        End With
        Selection.GoTo What = wdGoToLine, Which = wdGoToFirst
    End Sub
    Sub ZarCleaner()
        With Selection.Find
            .Text = "\<Page*[0-9]@*\>": .Replacement.Text = "^m": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "[\>-\<]\/F\<\>F*St\=’[A-Z]’[\>-\<]": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "[\>-\<]F*St\=’[A-Z]’[\>-\<]": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "([\>-\<]Image \= )(*)( [\>-\<])": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "<k[   ]?*[  ][0-9]>": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "([\>-\<]align*['left'-'right'-'Center'][\>-\<])(*)([\>-\<]\/align[\>-\<])": .Replacement.Text = "\2": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "[\>-\<]align*['left'-'right'-'Center'][\>-\<]": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        With Selection.Find
            .Text = "[\>-\<]\/align[\>-\<]": .Replacement.Text = " ": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = False: .MatchKashida = False: .MatchDiacritics = False: .MatchAlefHamza = False: .MatchControl = False: .MatchWildcards = True: .MatchSoundsLike = False: .MatchAllWordForms = False: .Execute Replace:=wdReplaceAll
        End With
        Call invert
    End Sub
     
    نوشته شده توسط aminiwolf در ‏15 می 2016

به اشتراک بگذارید