استفاده از Markdown در نرم افزار WindowsForms

**ROSTAM2** · پنج شنبه 12 مهر 1403, 21:38 عصر

سلام

من سعی دارم قوانین Markdown رو برای نوشتن مقاله در نرم افزار WindowsForms استفاده کنم....

SharedScreenshot.jpg

که متن همین صفحه این هست:

**Hello All!**

[vblover programmer AparatChannel](https://aparat.com/)

![**Test Iamge**;400px:200px;left](F:\Programming Projects\Visual Basic\CodeLibrary\Splash Screen2.jpg)

#Hello world....
##Hello world....
###Hello world....
####Hello world....
#####Hello world....
######Hello world....
Im good

```vb
Dim A as unteger
```

اولین و مهمترین سوالی که من دارم اینه که آیا ابزاری برای پیاده سازی Markdown در HTML بصورت رایگان وجود داره یا نه؟!

**ROSTAM2** · پنج شنبه 12 مهر 1403, 22:32 عصر

سورس کلاس Syntax که متن مقاله رو از Markdown به HTML تبدیل می کنه:



Public Class Syntax

    Protected Friend Shared ContentList As New List(Of String)

    Private Shared CodeMatch As New Regex("[\`]{3}(\w+|)\s(.*?)\n+[\`]{3}")

    Protected Friend Shared Function Markdown2HTML(ByVal Expression As String) As String

        Dim Output As String = Expression.Replace("<", "&lt;").Replace(">", "&gt;")

        Dim Start As Integer = 0, Value, Language, Code As String

        ContentList.Clear()

redoCode: With CodeMatch.Matches(Output, Start)

            For I = 0 To .Count - 1

                With .Item(I)

                    If .Success = False Then Continue For

                    If I = 0 Then

                        Value = Output.Substring(Start, .Index - Start)

                        If .Index > 0 And Value.Length > 0 Then

                            ' As MarkdownText....

                            ContentList.Add(Value.Replace(Space(1), "&nbsp;").HTMLMarkdown)

                        End If

                    End If

                    ' As Code....

                    Dim Index As Integer = InStr(3, .Value, vbLf, CompareMethod.Binary)

                    If Index > 0 Then

                        Language = .Value.Substring(3, (Index - 3) - 1)

                        Code = .Value.Substring((3 + Language.Length) + 1, .Length - (6 + Language.Length + 1))

                        Select Case Language.ToLower

                            Case "vb", "vbnet", "vb.net", "visualbasic"

                                VisualBasic.Highlight(Code)

                            Case Else





                        End Select





                        Dim Expr As String = String.Format("<pre><code>{1}</code></pre>",

                                                           vbLf,

                                                           Code)

                        VisualBasic.HighlightComments(Expr)

                        SharedHighlight.HighLightStrings(Expr)

                        Expr = Expr.Replace(Space(1), "&nbsp;")





                        Start = (.Index + .Length) + 1





                        ContentList.Add(Expr)

                    Else

                        Start = (.Index + .Length) + 1





                    End If

                    If Start >= Output.Length Then Exit For

                    GoTo redoCode

                End With

            Next

        End With

        If Start < Output.Length - 1 Then

            'Remainded Markdown string...

            ContentList.Add(Output.Substring(Start).Replace(Sp  ace(1), "&nbsp;").HTMLMarkdown)

        End If





        Return NewLinesReplacement(Join(ContentList.ToArray, ""))

    End Function

    Shared Function NewLinesReplacement(input As String) As String

        Return input.Replace(vbNewLine, "<br>").

                Replace(vbCrLf, "<br>").

               Replace(vbCr, "<br>").

                Replace(vbLf, "<br>")

    End Function





End Class

برای دیدن سورس کد متود VisualBasic.Highlight(Code) به لینک ضمیمه شده مراجعه کنید:

سوال: ایجاد یک لیست از کلمات کلیدی و تشخیص آن در متن - برگه 4 (barnamenevis.org)

**ROSTAM2** · پنج شنبه 12 مهر 1403, 22:39 عصر

سورس کد ماجول Markdown:



Imports System.Runtime.CompilerServices

Module Markdown

    Private BoldMatch0 As New Regex("\u002A{2}(.*?)\u002A{2}") ' **

    Private BoldMatch1 As New Regex("[\u005f]{2}(.*?)[\u005f]{2}") ' __

    Private ItalicMatch0 As New Regex("\u002A(.*?)\u002A") '*

    Private ItalicMatch1 As New Regex("[\u005f](.*?)[\u005f]") ' _

    Private ImageMatch As New Regex("[\u0021][\u005B](.*?)[\u005D][\(](.*?)[\)]") ' ![Text](imagePath)

    Private ContentLinkMatch As New Regex("[\u002A](\w+|)[\u005B](.*?)[\u005D][\(](.*?)[\)]") ' * [Text](#imagePath)





    Private LinkMatch As New Regex("[\u005B](.*?)[\u005D][\(](.*?)[\)]") ' [Text](url)

    Private Header1Match As New Regex("[\#](.*?)\s")

    Private Header2Match As New Regex("[\#]{2}(.*?)\s")

    Private Header3Match As New Regex("[\#]{3}(.*?)\s")

    Private Header4Match As New Regex("[\#]{4}(.*?)\s")

    Private Header5Match As New Regex("[\#]{5}(.*?)\s")

    Private Header6Match As New Regex("[\#]{6}(.*?)\s")

    Sub MarkdownReplacement(ByRef Expression As String)

        Expression = Expression.

        Replace("'#'", "{u0023}").

        Replace("'*'", "{u002A}").

        Replace("'_'", "{u005f}") '.

        'Replace("&lt;", "<").

        ''Replace("&gt;", ">")

    End Sub

    Sub MarkdownResetReplacement(ByRef Expression As String)

        Expression = Expression.

        Replace("{u0023}", "#").

        Replace("{u002A}", "*").

        Replace("{u005f}", "_")





    End Sub

    <Extension()>

    Public Function HTMLMarkdown(ByVal Expression As String) As String

        Dim expr As String = Expression

        MarkdownReplacement(expr)

        Dim value As String = ""

        Dim Start As Integer = 0

        Dim LinkText As String = "", LinkUrl As String, spl As String()

redoh6: With Header6Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(6)

                    value = String.Format("<h6>{0}</h6>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh6

                End With

            Next

        End With

        Start = 0

redoh5: With Header5Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(5)

                    value = String.Format("<h5>{0}</h5>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh5

                End With

            Next

        End With

        Start = 0

redoh4: With Header4Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(4)

                    value = String.Format("<h4>{0}</h4>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh4

                End With

            Next

        End With

        Start = 0

redoh3: With Header3Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(3)

                    value = String.Format("<h3>{0}</h3>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh3

                End With

            Next

        End With

        Start = 0

redoh2: With Header2Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(2)

                    value = String.Format("<h2>{0}</h2>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh2

                End With

            Next

        End With

        Start = 0

redoh1: With Header1Match.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(1)

                    value = String.Format("<h1>{0}</h1>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redoh1

                End With

            Next

        End With

        Start = 0

redo0:  With BoldMatch0.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(2, .Value.Length - 4)

                    value = String.Format("<b>{0}</b>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo0

                End With

            Next

        End With

        Start = 0

redo000: With BoldMatch1.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(2, .Value.Length - 4)

                    value = String.Format("<b>{0}</b>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo000

                End With

            Next

        End With

        Start = 0

redo01: With ItalicMatch0.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(1, .Value.Length - 2)

                    value = String.Format("<i>{0}</i>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo01

                End With

            Next

        End With

        Start = 0

redo02: With ItalicMatch1.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(1, .Value.Length - 2)

                    value = String.Format("<i>{0}</i>", value)

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo02

                End With

            Next

        End With

        Start = 0





        Dim width As String = ""

        Dim height As String = ""

        Dim align As String = ""

redo03: With ImageMatch.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(2, .Value.Length - 3)

                    value = value.Replace("&nbsp;", Space(1))

                    spl = Split(value, "]")

                    LinkText = spl(0)

                    LinkUrl = spl(1).Substring(1)

                    align = "" : width = "" : height = ""

                    If LinkText.Contains(";") = True Then

                        spl = LinkText.Split(";")

                        LinkText = spl(0)

                        If spl.Length >= 3 Then

                            align = spl(2)

                        End If

                        spl = spl(1).Split(":")

                        width = spl(0)

                        height = spl(1)

                    End If

                    value = ImageBox(LinkText, LinkUrl,

                                         If(width.Length = 0, 300, width),

                                        If(height.Length = 0, 200, height),

                                        align)

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo03

                End With

            Next

        End With

        Start = 0

redo04: With LinkMatch.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(1, .Value.Length - 2)

                    spl = Split(value, "]")

                    LinkText = spl(0)

                    LinkUrl = spl(1).Substring(1)

                    value = String.Format("<a href={2}{0}{2} >{1}</a>", LinkUrl, LinkText, Chr(34))

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)

                    Start = (.Index + value.Length)

                    GoTo redo04

                End With

            Next

        End With

        MarkdownResetReplacement(expr)

        Return expr





    End Function

    Private Function ImageBox(title As String, src As String,

                              width As String, height As String,

                              align As String)

        Dim Expr As String = String.Format("<div align='{4}' class='imageBox'><div class='polaroid' >" +

  "<img src='{1}' alt='{0}' width='{2}' height='{3}' >" +

      "<div class='container'><label>{0}</label></div></div></div>", title, src, width, height, align)

        Return Expr

    End Function

End Module

**ROSTAM2** · جمعه 13 مهر 1403, 00:53 صبح

Unordered HTML List
و
Ordered HTML List

اضافه کردم ....



    Private OListMatch As New Regex("[\u005B](ULIST|ulist|UList|olist|OList|OLIST)(.*?)[\u005D](\n+|\s|)([\(](.*?)[\)])")



        Dim ListInfo As String = "", ListItems As String = ""

        Dim ListKind As String = ""

        Dim ItemType As String = ""

        Dim ItemStart As String = ""

redolist: With OListMatch.Matches(expr, Start)

            For i = 0 To .Count - 1

                With .Item(i)

                    If .Success = False Then Continue For

                    value = .Value.Substring(1, .Value.Length - 2)

                    spl = Split(value, "]")

                    ListInfo = spl(0)

                    ListItems = spl(1).Trim.Substring(1, spl(1).Trim.Length - 1)

                    If ListInfo.Contains(";") Then

                        spl = ListInfo.Split(";")

                        ListKind = spl(0).ToLower

                        Select Case spl.Length

                            Case 2 : ItemType = spl(1)

                            Case 3 : ItemType = spl(1) : ItemStart = spl(2)

                        End Select

                    Else

                        ListKind = ListInfo.ToLower

                    End If

                    If ListKind = "olist" Then

                        value = String.Format("<ol type={2}{0}{2} start={2}{1}{2} >", ItemType, ItemStart, Chr(34))

                        spl = ListItems.Split(",")

                        For Each s As String In spl

                            value += String.Format("<li>{0}</li><br>", s.Trim, vbCr)

                        Next

                        value += "</ol>"

                    ElseIf ListKind = "ulist" Then

                        value = String.Format("<ul style={1}list-style-type:{0};{1} >", ItemType, Chr(34))

                        spl = ListItems.Split(",")

                        For Each s As String In spl

                            value += String.Format("<li>{0}</li><br>", s.Trim, vbCr)

                        Next

                        value += "</ul>"

                    End If

                    value = value.Replace("&nbsp;", Space(1))

                    expr = expr.Remove(.Index, .Length)

                    expr = expr.Insert(.Index, value)





                    Start = (.Index + value.Length)

                    GoTo redolist

                End With

            Next

        End With

        Start = 0

نوشتن متنش به این صورته:

[ULIST;DISC](Item1,Item2)
[olist;A;2](Item3, Item4)

SharedققScreenshot.jpg

**ROSTAM2** · جمعه 13 مهر 1403, 01:00 صبح

نمونه متن نرم افزارو:

#Chapter1 ONE ''#''

vb_lover'_'programmer'_'1@gmail.com
* JHDSJF HSDJK* '*' *KSDHF JSDHF* JHJHHJHJ

*Hello*
_hello_ dd



```vb
Dim MyInt as integer = 10
```

![Image 1;auto:auto;center](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAAB XAvmHAAAACXBIWXMAAAsTAAALEwEAmpwYAAACaklEQVR4nO1Yy 4oUMRQN9GIY0JVUV649DwZX4mvtID4+QcQPmGlFOkm3q3HcOTt bV67VTxB/QHBaFFzowsdiFERkFD9AwXYhHKmhC6qrUpmqTqqbDHUgq8pNzk lyk3OLsRo1atQ48FCEF4qAZBMc55kPuMrQUITfKQH/RIBDzAeoFs6kV19yvGO+QBGuawQ8ZL5AcjxOC1CENvMFkvAxLa AX4iTzARtHcDhK2LHjQ/gVJfZMCEnCzR5hqWj/bohLmfNPeJ7Xv0dYiuZgVUAStkYkvqkQK0ViFOG2JoHv6vp2jm JREr7s9ePoV0UeZUQojqeaHbhsJE+j5kqEhnxMZFBAwI903I0F tDRzDHLm2KqEvOLY7QY4ZorttrCgOT7fdX0Fx7IkfM2Zqz918n vxHFc08U/y+guXImzJj8a4n4kPsWGKES5EtJvDvi35vHPd5biwX5wwiGgHw wfG4HPzn54db7zBenNoRd7WgQqNiHbzL0403uLs3M7rXPIr7BW iNiaiJPkInRZOa3bwfZkxREJETD7mlxGxOrcziD8mRawFf36WJ e/SgQqO5fVguJskrxWRXH0XAlw5UGEQsDr/+WVlR8iFAxWGI5Qh7zKJo0RNO9Aoocs4UGFI4lzyMdYsr1EZ4q ImftuGvCp6jbp4yCRhc9JHSDh+jTcnEVHUgVZK3kZEUQdagvwd Ni07XcaBTsVOG3ZCW9CUdaD7FDR2K28QkVuNSY57GgG3iozfGS 8p3ZIvWtRP6kCnUtQf+H+gHQcOdKbw/h+o4nikuQavMV+gCB8yApo4xXyAcOBAZwpbB1qjRo0azFv8B+/gnNOzTeoXAAAAAElFTkSuQmCC)

تصویرش:
SharedScثقققreenshot.jpg

نام تاپیک: استفاده از Markdown در نرم افزار WindowsForms

ابزار های تاپیک

نمایش

استفاده از Markdown در نرم افزار WindowsForms

نقل قول: استفاده از Markdown در نرم افزار WindowsForms

نقل قول: استفاده از Markdown در نرم افزار WindowsForms

نقل قول: استفاده از Markdown در نرم افزار WindowsForms

نقل قول: استفاده از Markdown در نرم افزار WindowsForms

تاپیک های مشابه

دستگاه بسته بندی مواد غذایی آجیل / دستگاه پرکن و بسته بندی پودر

سوال: تبدیل پروژه ( WindowsForms ) به کامپوننت

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار