Sign in to follow this  
Followers 0
feelie75

How to create a nice looking grid (4x4 array)

7 posts in this topic

Ok, so I'm very familiar with arrays, but not AutoIt...

I have a 4x4 grid:

ABCD

FJAP

FMEK

FOOB

What's the quickest way to get those into a 4x4 array? I tried this:

Dim $board[4][4] = [[stringsplit("ABCD","")],[stringsplit("FJAP","")],[stringsplit("FMEK","")],[stringsplit("FOOB","")]]

that doesn't work obviously... I could do [["A","B","C","D"],[..... but I just sorta wanted all the letters to line up. I mean, here's the deal, in PERL I can do this:

@array = qw(

join(" ",split('',"ABCD")),

join(" ",split('',"FJAP")),

join(" ",split('',"FMEK")),

join(" ",split('',"FOOB")));

ok, so i guess that's not very pretty, but on a fixed-width font the board 4x4 grid looks good in the code, heh... Also I noticed I can't split my Dim $array[4][4] across multiple lines??? I had to put it all on one line. is that right? odd.

I guess a related question would be what if I have a nicely formatted string like so:

$string =

"ABCD"

& "FJAP"

& "FMEK"

& "FOOB"

can I convert that into a 4x4 array gracefully? Can I even create a string like that so it looks good in code?

Sorry if I'm convoluting things :whistle: Just trying to make my code as pretty as possible! :lmao:

Thanks!

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Edit:

Bleh... Sorry, misunderstood OP

Edited by Siao

"be smart, drink your wine"

Share this post


Link to post
Share on other sites

Based on Siao's version:

#include <Array.au3>
Dim $board[4][4] = [["A","B","C","D"],["F","J","A","P"],["F","M","E","K"],["F","O","O","B"]]
_ArrayDisplay($board)

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

#include <array.au3>
$string = "ABCD" & "FJAP" & "FMEK" & "FOOB" & "BOOKA!"
$grid = _Str2Array($string, 4)
_ArrayDisplay($grid)

Func _Str2Array($string, $rowsize)
    Local $size = Ceiling(StringLen($string) / $rowsize)
    Local $a[$size][$rowsize]
    For $i = 0 to $size-1
        For $j = 0 to $rowsize-1
            $a[$i][$j] = StringMid($string, $i*$rowsize+$j+1, 1)
        Next
    Next
    Return $a
EndFunc

Edited by Siao

"be smart, drink your wine"

Share this post


Link to post
Share on other sites

Ok, so I'm very familiar with arrays, but not AutoIt...

I have a 4x4 grid:

ABCD

FJAP

FMEK

FOOB

What's the quickest way to get those into a 4x4 array? I tried this:

Dim $board[4][4] = [[stringsplit("ABCD","")],[stringsplit("FJAP","")],[stringsplit("FMEK","")],[stringsplit("FOOB","")]]

that doesn't work obviously... I could do [["A","B","C","D"],[..... but I just sorta wanted all the letters to line up. I mean, here's the deal, in PERL I can do this:

@array = qw(

join(" ",split('',"ABCD")),

join(" ",split('',"FJAP")),

join(" ",split('',"FMEK")),

join(" ",split('',"FOOB")));

ok, so i guess that's not very pretty, but on a fixed-width font the board 4x4 grid looks good in the code, heh... Also I noticed I can't split my Dim $array[4][4] across multiple lines??? I had to put it all on one line. is that right? odd.

I guess a related question would be what if I have a nicely formatted string like so:

$string =

"ABCD"

& "FJAP"

& "FMEK"

& "FOOB"

can I convert that into a 4x4 array gracefully? Can I even create a string like that so it looks good in code?

Sorry if I'm convoluting things :whistle: Just trying to make my code as pretty as possible! :lmao:

Thanks!

I might not be understanding the question correctly, but if you mean "how in general can I write a string in a neat way that can be converted to a 4 x 4 array in my code?" then

$string ="ABCD|FJAP|FMEK|FOOB"

Dim $BOARD[4][4]

$LEVEL1 = StringSplit($STRING,'|')

For $n = 0 To 3

For $p = 0 To 3

$BOARD[$n][$p] = StringMid($level1[$n+1],$p + 1,1)

Next

Next

But if you just want to write the string so that it will be printed in 4 lines then

$string = Stringreplace("ABCD|FJAP|FMEK|FOOB","|",'" & @CRLF & "')


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#include <array.au3>
$string = "ABCD" & "FJAP" & "FMEK" & "FOOB" & "BOOKA!"
$grid = _Str2Array($string, 4)
_ArrayDisplay($grid)

Func _Str2Array($string, $rowsize)
    Local $size = Ceiling(StringLen($string) / $rowsize)
    Local $a[$size][$rowsize]
    For $i = 0 to $size-1
        For $j = 0 to $rowsize-1
            $a[$i][$j] = StringMid($string, $i*$rowsize+$j+1, 1)
        Next
    Next
    Return $a
EndFunc
Ahh excellent! yep, I was a little confused by your first reply, heh. Yeah this will work great. I can space out the $string = into 4 lines and line up the groups of letters for better readability. Actually it'll be for better editing so that I can retype the grid into the $string variable when I need to change it.

Thanks! This will make my code much easier to change the grid...

incase you're wondering, I'm writing a Minesweeper solving utility :whistle:. I've got it working so far so that it'll take a 10x10 grid of various "solid", "numbered" and "open space" squares and it will figure out where all the mines are. There's a chance that one or more mines may be guesswork though but it seems to solve between 80-100% of them so far.

thanks again! (assuming it works, hah, I haven't pasted it in yet :lmao:)

Share this post


Link to post
Share on other sites

I might not be understanding the question correctly, but if you mean "how in general can I write a string in a neat way that can be converted to a 4 x 4 array in my code?" then

$string ="ABCD|FJAP|FMEK|FOOB"

Dim $BOARD[4][4]

$LEVEL1 = StringSplit($STRING,'|')

For $n = 0 To 3

For $p = 0 To 3

$BOARD[$n][$p] = StringMid($level1[$n+1],$p + 1,1)

Next

Next

But if you just want to write the string so that it will be printed in 4 lines then

$string = Stringreplace("ABCD|FJAP|FMEK|FOOB","|",'" & @CRLF & "')

Ah, that sounds like a reasonable approach to it also. Yeah, that's what I wanted to do. Convert a nice looking string (I'd split that $string= into 4 lines to align the columns to each other) into a [][] array.

I'll try both approaches and see which one I like best :whistle:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0