Announcement

Collapse
No announcement yet.

testing images

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • testing images

    Click image for larger version

Name:	ep_desk_dec_2016.png
Views:	2
Size:	9.2 KB
ID:	756322 test
    Attached Files
    "Not my circus, not my monkeys."

  • #2
    VB Support Image Upload Test

    Click image for larger version

Name:	DSC03152.JPG
Views:	2
Size:	8.9 KB
ID:	756325
    Attached Files

    Comment


    • #3
      Some text,
      an image,
      and some code.
      This line was not edited.

      Click image for larger version

Name:	Corbeau.jpg
Views:	5
Size:	5.1 KB
ID:	756345

      Code:
      '______________________________________________________________________________
      
      FUNCTION HexView$(sString AS STRING) AS STRING 'HexView HexString, use STDOUT for console application.
       LOCAL  pByte   AS BYTE POINTER
       LOCAL  sBuffer AS STRING
       LOCAL  sChar16 AS STRING
       LOCAL  Looper  AS LONG
      
       pByte = STRPTR(sString)
       DO
         IF (Looper AND 15) = 00 THEN                 'Like MOD 16
           sBuffer = sBuffer & HEX$(Looper, 4) & ": " 'Line number:
         ELSEIF (Looper AND 07) = 00 THEN             'Like MOD 8
           sBuffer = sBuffer & "- "                   'Middle dash
         END IF
      
         IF Looper < LEN(sString) THEN                'Add data
           sBuffer = sBuffer & HEX$(@pByte[Looper], 2) & $SPC
         ELSE
           #IF %DEF(%PB_WIN32)
           sBuffer = sBuffer & "     "
           #ELSE
           sBuffer = sBuffer & "   "
           #ENDIF
         END IF
      
         IF (Looper AND 15) = 15 THEN                 'End of 16 bytes line
           sChar16 = MID$(sString, Looper -14, 16)    'Next line replace non visible characters with dot
           REPLACE ANY CHR$(0,1,7,9,10,13,27 TO 31,127,129,140,141,143,144,152,157) WITH "..................." IN sChar16
           sBuffer = sBuffer & "; " & sChar16 & $CRLF 'Add ascii string and CRLF
           IF Looper >= LEN(sString) - 1 THEN EXIT DO 'Job done
         END IF
      
         INCR Looper
      
       LOOP
       FUNCTION = "Binary data lenght is" & STR$(LEN(sString)) & " bytes." & $CRLF & sBuffer
      
      END FUNCTION
      '______________________________________________________________________________
      '

      Comment


      • #4
        Some text,
        an image,
        and some code.
        This line was edited. (Samething as above except I added this text)

        Click image for larger version  Name:	Corbeau.jpg Views:	2 Size:	5.1 KB ID:	756347

        Code:
        '______________________________________________________________________________
        
        FUNCTION HexView$(sString AS STRING) AS STRING 'HexView HexString, use STDOUT for console application.
        LOCAL  pByte   AS BYTE POINTER
        LOCAL  sBuffer AS STRING
        LOCAL  sChar16 AS STRING
        LOCAL  Looper  AS LONG
        
         pByte = STRPTR(sString)
        DO
        IF (Looper AND 15) = 00 THEN                 'Like MOD 16
             sBuffer = sBuffer & HEX$(Looper, 4) & ": " 'Line number:
        ELSEIF (Looper AND 07) = 00 THEN             'Like MOD 8
             sBuffer = sBuffer & "- "                   'Middle dash
        END IF
        
        IF Looper < LEN(sString) THEN                'Add data
             sBuffer = sBuffer & HEX$(@pByte[Looper], 2) & $SPC
        ELSE
        #IF %DEF(%PB_WIN32)
             sBuffer = sBuffer & "     "
        #ELSE
             sBuffer = sBuffer & "   "
        #ENDIF
        END IF
        
        IF (Looper AND 15) = 15 THEN                 'End of 16 bytes line
             sChar16 = MID$(sString, Looper -14, 16)    'Next line replace non visible characters with dot
        REPLACE ANY CHR$(0,1,7,9,10,13,27 TO 31,127,129,140,141,143,144,152,157) WITH "..................." IN sChar16
             sBuffer = sBuffer & "; " & sChar16 & $CRLF 'Add ascii string and CRLF
        IF Looper >= LEN(sString) - 1 THEN EXIT DO 'Job done
        END IF
        
        INCR Looper
        
        LOOP
        FUNCTION = "Binary data lenght is" & STR$(LEN(sString)) & " bytes." & $CRLF & sBuffer
        
        END FUNCTION
        '______________________________________________________________________________
        '

        Comment


        • #5
          Some text,
          an image,
          and some code.
          This line was not edited.

          Click image for larger version

Name:	Corbeau.jpg
Views:	5
Size:	5.1 KB
ID:	756349

          Code:
          '______________________________________________________________________________
          
          FUNCTION HexView$(sString AS STRING) AS STRING 'HexView HexString, use STDOUT for console application.
           LOCAL  pByte   AS BYTE POINTER
           LOCAL  sBuffer AS STRING
           LOCAL  sChar16 AS STRING
           LOCAL  Looper  AS LONG
          
           pByte = STRPTR(sString)
           DO
             IF (Looper AND 15) = 00 THEN                 'Like MOD 16
               sBuffer = sBuffer & HEX$(Looper, 4) & ": " 'Line number:
             ELSEIF (Looper AND 07) = 00 THEN             'Like MOD 8
               sBuffer = sBuffer & "- "                   'Middle dash
             END IF
          
             IF Looper < LEN(sString) THEN                'Add data
               sBuffer = sBuffer & HEX$(@pByte[Looper], 2) & $SPC
             ELSE
               #IF %DEF(%PB_WIN32)
               sBuffer = sBuffer & "     "
               #ELSE
               sBuffer = sBuffer & "   "
               #ENDIF
             END IF
          
             IF (Looper AND 15) = 15 THEN                 'End of 16 bytes line
               sChar16 = MID$(sString, Looper -14, 16)    'Next line replace non visible characters with dot
               REPLACE ANY CHR$(0,1,7,9,10,13,27 TO 31,127,129,140,141,143,144,152,157) WITH "..................." IN sChar16
               sBuffer = sBuffer & "; " & sChar16 & $CRLF 'Add ascii string and CRLF
               IF Looper >= LEN(sString) - 1 THEN EXIT DO 'Job done
             END IF
          
             INCR Looper
          
           LOOP
           FUNCTION = "Binary data lenght is" & STR$(LEN(sString)) & " bytes." & $CRLF & sBuffer
          
          END FUNCTION
          '______________________________________________________________________________
          '

          Comment


          • #6
            Some text,
            an image,
            and some code.
            This line was edited. (Samething as above except I added this text and image)


            Click image for larger version  Name:	Corbeau.jpg Views:	4 Size:	5.1 KB ID:	756359

            Code:
            '______________________________________________________________________________
            
            FUNCTION HexView$(sString AS STRING) AS STRING 'HexView HexString, use STDOUT for console application.
             LOCAL  pByte   AS BYTE POINTER
             LOCAL  sBuffer AS STRING
             LOCAL  sChar16 AS STRING
             LOCAL  Looper  AS LONG
            
             pByte = STRPTR(sString)
             DO
               IF (Looper AND 15) = 00 THEN                 'Like MOD 16
                 sBuffer = sBuffer & HEX$(Looper, 4) & ": " 'Line number:
               ELSEIF (Looper AND 07) = 00 THEN             'Like MOD 8
                 sBuffer = sBuffer & "- "                   'Middle dash
               END IF
            
               IF Looper < LEN(sString) THEN                'Add data
                 sBuffer = sBuffer & HEX$(@pByte[Looper], 2) & $SPC
               ELSE
                 #IF %DEF(%PB_WIN32)
                 sBuffer = sBuffer & "     "
                 #ELSE
                 sBuffer = sBuffer & "   "
                 #ENDIF
               END IF
            
               IF (Looper AND 15) = 15 THEN                 'End of 16 bytes line
                 sChar16 = MID$(sString, Looper -14, 16)    'Next line replace non visible characters with dot
                 REPLACE ANY CHR$(0,1,7,9,10,13,27 TO 31,127,129,140,141,143,144,152,157) WITH "..................." IN sChar16
                 sBuffer = sBuffer & "; " & sChar16 & $CRLF 'Add ascii string and CRLF
                 IF Looper >= LEN(sString) - 1 THEN EXIT DO 'Job done
               END IF
            
               INCR Looper
            
             LOOP
             FUNCTION = "Binary data lenght is" & STR$(LEN(sString)) & " bytes." & $CRLF & sBuffer
            
            END FUNCTION
            '______________________________________________________________________________
            '
            Attached Files
            Last edited by Pierre Bellisle; 29 Dec 2016, 08:24 PM.

            Comment


            • #7
              In post above, both images should have been side by side.
              In post with color code, indent was lost after a simple line edit.
              This kind of stuff append real often.
              If I edit a post, I got to copy all text, make sure I still have the picture if any, erase everything a redo from a blank page.

              Pierre
              Last edited by Pierre Bellisle; 16 Jan 2017, 07:29 PM.

              Comment


              • #8
                Simple test with Microsoft Internet Explorer,
                Single line to edit. [Edited this line only and lost code indent]

                Code:
                '______________________________________________________________________________
                
                FUNCTION HexView$(sString AS STRING) AS STRING 'HexView HexString, use STDOUT for console application.
                LOCAL  pByte   AS BYTE POINTER
                LOCAL  sBuffer AS STRING
                LOCAL  sChar16 AS STRING
                LOCAL  Looper  AS LONG
                
                 pByte = STRPTR(sString)
                DO
                IF (Looper AND 15) = 00 THEN                 'Like MOD 16
                     sBuffer = sBuffer & HEX$(Looper, 4) & ": " 'Line number:
                ELSEIF (Looper AND 07) = 00 THEN             'Like MOD 8
                     sBuffer = sBuffer & "- "                   'Middle dash
                END IF
                
                IF Looper < LEN(sString) THEN                'Add data
                     sBuffer = sBuffer & HEX$(@pByte[Looper], 2) & $SPC
                ELSE
                #IF %DEF(%PB_WIN32)
                       sBuffer = sBuffer & "     "
                #ELSE
                       sBuffer = sBuffer & "   "
                #ENDIF
                END IF
                
                IF (Looper AND 15) = 15 THEN                 'End of 16 bytes line
                     sChar16 = MID$(sString, Looper -14, 16)    'Next line replace non visible characters with dot
                REPLACE ANY CHR$(0,1,7,9,10,13,27 TO 31,127,129,140,141,143,144,152,157) WITH "..................." IN sChar16
                     sBuffer = sBuffer & "; " & sChar16 & $CRLF 'Add ascii string and CRLF
                IF Looper >= LEN(sString) - 1 THEN EXIT DO 'Job done
                END IF
                
                INCR Looper
                LOOP
                
                FUNCTION = "Binary data lenght is" & STR$(LEN(sString)) & " bytes." & $CRLF & sBuffer
                
                END FUNCTION
                '______________________________________________________________________________
                '

                Comment

                Working...
                X