SHARE
TWEET

print_labels.au3

a guest Jul 31st, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. while True
  2.  
  3. $labels = FileRead(@ScriptDir&"\pendinglabels.txt")
  4. FileDelete(@ScriptDir&"\pendinglabels.txt")
  5. $labelsarray = StringSplit($labels, @LF, 2)
  6.  
  7.     for $n = 0 to UBound($labelsarray)-1
  8.  
  9.     $labelinfo = StringSplit(StringReplace($labelsarray[$n], @CR, ""), "|", 2)
  10.  
  11.         if UBound($labelinfo) > 7 Then
  12.  
  13.             $labelformat = "{0} {1} {2}"&@CRLF&"{3}"&@CRLF&"{4} {5} {6}"&@CRLF&"BOX {x} OF {y}"
  14.  
  15.             for $f = 1 to $labelinfo[7]
  16.                 $currentlabel = ""
  17.                 for $r = 0 to UBound($labelinfo)-1
  18.  
  19.                     if $r  = 0 Then
  20.  
  21.                         $currentlabel = StringReplace($labelformat, "{"&$r&"}", $labelinfo[$r])
  22.  
  23.                     EndIf
  24.  
  25.                 $currentlabel = StringReplace($currentlabel, "{"&$r&"}", $labelinfo[$r])
  26.  
  27.                 Next
  28.  
  29.                 $currentlabel = StringReplace($currentlabel, "{x}", $f)
  30.                 $currentlabel = StringReplace($currentlabel, "{Y}", $labelinfo[7])
  31.                 ConsoleWrite($currentlabel&@CRLF&"======================="&@CRLF)
  32.             Next
  33.  
  34.  
  35.         EndIf
  36.  
  37.  
  38.     Next
  39.  
  40. WEnd
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top