ModMain.Bar25I Method ModMain.Bar25I Method EDKB12WS.ModMain.Bar25I Method Bar25I Method topic_00000000000003DE EDKB12WS.ModMain.Bar25I EDKB12WS.ModMain.Bar25I ModMain.Bar25I EDKB12WS.ModMain.ModMain.Bar25I EDKB12WS.ModMain.Bar25I EDKB12WS (in EDKB12WS.exe) ModMain.Bar25I Method EDKB12WS.ModMain topic_00000000000003DE
ModMain.Bar25I Method

Assembly: EDKB12WS (in EDKB12WS.exe)
Visual Basic
Public Shared Function Bar25I( _
  ByVal BarTextIn As ]]>Stringa]]>]]> _
) As ]]>Stringa]]>]]>
C#
public static ]]>stringa]]>]]> Bar25I(
  ]]>stringa]]>]]> BarTextIn
)
C++
public:
static ]]>Stringa]]>]]>^ Bar25I(
  ]]>Stringa]]>]]>^ BarTextIn
)
JScript
public static function Bar25I(
   BarTextIn : ]]>Stringa]]>]]>
) : ]]>Stringa]]>]]>;
ParametersBarTextIn
$END-IFNOTEMPTY$
Visual Basic Copy CodeCopy Code ]]>
Public Function Bar25I(ByVal BarTextIn As String) As String

   ' Initialize input and output strings
   BarTextOut = ""
   BarTextIn = RTrim(LTrim(BarTextIn))

   ' Throw away non-numeric data
   TempString = ""
   For II = 1 To Len(BarTextIn)
       If IsNumeric(Mid(BarTextIn, II, 1)) Then
           TempString = TempString & Mid(BarTextIn, II, 1)
       End If
   Next II

   ' If not an even number of digits, add a leading 0
   If (Len(TempString) Mod 2) = 1 Then
       TempString = "0" & TempString
   End If

   ' Break digit pairs up and convert to characters- build output string
   For II = 1 To Len(TempString) Step 2
       'Break string into pairs of digits and get value
       CharValue = Mid(TempString, II, 2)
       'translate value to ASCII and save in BarTextOut
       If CharValue < 90 Then
           BarTextOut = BarTextOut & Chr(CharValue + 33)
       Else
           BarTextOut = BarTextOut & Chr(CharValue + 71)
       End If
   Next II

   'Build ouput string, trailing space for Windows rasterization bug
   barcodeout = "{" & BarTextOut & "} "

   'Return the string
   Bar25I = barcodeout

End Function
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see ]]>System Requirementsa]]>]]>.
.NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0
.NET Compact Framework Supported in: 3.5, 2.0, 1.0
XNA Framework Supported in: 3.0, 2.0, 1.0
Reference ModMain ClassModMain Class
ModMain ModMain MembersModMain ModMain Members