R0mb0

My way to "embed" pdfs inside a GitHub Markdown Readme documents

1. Convert the pdf document in image
   • Install the software

     sudo apt update
     sudo apt install poppler-utils

   • Convert the pdf

R0mb0

<%
    Function substringFromIndices(String, startIndex, endIndex)
        Dim resultString
    
        ' Validate indices
        If startIndex < 1 Then
            startIndex = 1
        End If
    
        If endIndex > Len(String) Then

R0mb0

<%
Function get_character(index, text)
        If IsNumeric(index) and index < Len(text) and Not(index < 0)Then 
            get_character = Left(Right(text,(Len(text) - index)), (1))
        End If 
End Function 
 %>

R0mb0

<% 
  'Function to remove double spaces from text
  Function remove_double_spaces(ByVal my_string)   
      Dim temp_string
      temp_string = my_string
      Do While InStr(1, temp_string, "  ")
          temp_string= Replace(temp_string, "  ", " ")
      Loop
      temp_string = Trim(temp_string)
      remove_double_spaces = temp_string

R0mb0

<%
  Function remove_single_numbers_from_text(ByVal my_string)
  Dim temp_string
  temp_string = my_string
  Dim temp
  For Each temp In Split(my_string, " ")
    If IsNumeric(temp) Then 
      temp_string = Replace(temp_string, temp & " ", "")
    End If 
  Next

R0mb0

<%
  Dim my_array
  my_array = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
%> 

R0mb0

<%
  Private Function remove_single_letters_from_text(ByVal my_string)
        Dim letters_array
        letters_array = Array("q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m")
        Dim temp_string
        temp_string = my_string
        Dim temp
        For Each temp In letters_array
            If InStr(temp_string, " " & temp & " ") <> 0 Then 
                temp_string = Replace(temp_string, " " & temp & " ", " ")

R0mb0

<%
  Dim my_array
  my_array = Array("q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m")
%> 

R0mb0

<%
  Dim my_array
  my_array = Array(".", ",", ":", ";", "`", "/", "\", "|", "_", "-", "~", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "+", "=", "{", "[", "}", "]", "'", "<", ">")
%>

R0mb0

<%
Function is_special_character(character)
  Select Case character
    Case "."
      is_special_character = true
      Exit Function 
    Case ","
      is_special_character = true
      Exit Function
    Case ":"