Posted By

qrist0ph on 05/18/08


Tagged

testing


Versions (?)

Alle ASCII (Sonder)zeichen als String


 / Published in: Visual Basic
 

  1. Function sonderzeichen()
  2. s = "TEST"
  3. For i = 32 To 126
  4. s = s & Chr(i)
  5. Next
  6. Debug.Print s
  7. sonderzeichen = s
  8. End Function
  9.  
  10. ' TEST !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

Report this snippet  

You need to login to post a comment.