gyetvaig

VBA Transpose 2D Array

Jan 16th, 2019
6,145
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' ----------------------------------------------------------------
  2. ' Procedure Name: f_transpose2DArray
  3. ' Purpose: Transpose a 2D array
  4. ' ----------------------------------------------------------------
  5. Function f_transpose2DArray(inputArray As Variant) As Variant
  6.  
  7. Dim x As Long, yUbound As Long
  8. Dim y As Long, xUbound As Long
  9. Dim tempArray As Variant
  10.  
  11.     xUbound = UBound(inputArray, 2)
  12.     yUbound = UBound(inputArray, 1)
  13.    
  14.     ReDim tempArray(1 To xUbound, 1 To yUbound)
  15.    
  16.     For x = 1 To xUbound
  17.         For y = 1 To yUbound
  18.             tempArray(x, y) = inputArray(y, x)
  19.         Next y
  20.     Next x
  21.    
  22.     f_transpose2DArray = tempArray
  23.    
  24. End Function
Advertisement
Comments
  • Ronjulix
    230 days
    # CSS 0.85 KB | 0 0
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
  • User was banned
Add Comment
Please, Sign In to add comment