bousaid

WINDEV PROCEDURE Decouper date

Jul 14th, 2021 (edited)
44
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROCEDURE decouper(Ch_Source,g1,g2,g3,g4,g5,g6)
  2. STCharacter is Structure
  3. s1,s2,s3,s4 are strings on 1
  4. s5,s6 are strings on 2
  5. END
  6.  
  7. sMySource is string = Ch_Source
  8. stMyCharacters is STCharacter
  9.  
  10. stMyCharacters:s1 = Middle(sMySource,1,1)
  11. stMyCharacters:s2 = Middle(sMySource,2,1)
  12. stMyCharacters:s3 = Middle(sMySource,3,1)
  13. stMyCharacters:s4 = Middle(sMySource,4,1)
  14. stMyCharacters:s5 = Middle(sMySource,5,2)
  15. stMyCharacters:s6 = Middle(sMySource,7,2)
  16.  
  17. g1 = stMyCharacters.s2
  18. g2 = stMyCharacters.s1
  19. g3 = stMyCharacters.s4
  20. g4 = stMyCharacters.s3
  21. g5 = stMyCharacters.s6
  22. g6 = stMyCharacters.s5
  23.  
  24. RESULT stMyCharacters
RAW Paste Data