Out of curiosity, I was trying to find a way to combine several inputs into a single input window (currently set to string) on the interface. In the current example, these inputs are the 4 parameters necessary for resize-world.
While my result works, I would be interested to hear if someone else knows a more elegant solution. I specifically dislike the use of item here.
Interface:
input-window
[0 5 0 5]
Code:
to setup
let worldsizes runresult input-window
resize-world item 0 worldsizes item 1 worldsizes item 2 worldsizes item 3 worldsizes
end
Using this post as base, I created a procedure that allows a command, both anonymous and regular, to take a single list of arguments as input.
Interface:
input-window
[0 5 0 5]
Code:
to test
let worldsize run-result input-window ;creates a list
apply-command "resize-world" worldsize
end
to apply-command [command inputlist]
; Takes two inputs
; 1: Anonymous command/string containing anonymous command/string containing regular command
; 2: A list of inputs, corresponding in length to the number of inputs the command takes
; Applies the command with the different items of the list as input
; Heavily inspired by stackoverflow-user Bryan head
set command anonimify-command command length inputlist ; Using non-anonymous commands gave issues, hence they are anonimified
(run listify-command command length inputlist inputlist)
end
to-report listify-command [ command num-args ]
; Takes an anonymous command and the length of a list as input
; Outputs an anonymous command that takes the different items of the list as inputs
; Heavily inspired by stackoverflow-user Bryan head
if (not is-anonymous-command? command) [error "The first input for listify-command has to be an anonymous command"]
let args (reduce word n-values num-args [ x -> (word " item " x " ?") ])
;show (word runresult (word "[ ? -> (run command " args ") ]"))
report runresult (word "[ ? -> (run command " args ") ]")
end
to-report anonimify-command [ command number-of-inputs]
; Takes two inputs
; 1: Takes an anonymous command, a string containing an anonymous command or a string containing a regular command
; 2: Takes a number that corresponds to the number of inputs the anonimified command should take
; Returns anonymous commands unaltered
; Returns strings containing an anonymous command as an anonymous command
; Returns strings containing a regular command as an anonymous command
if (is-anonymous-command? command) [ ; Anonymous commands get returned
report command
]
if (is-string? command) [ ; Strings are processed
carefully [ ; Using run-result on a string that does not contain an anonymous command causes an error, hence carefully
if (is-anonymous-command? run-result command) [
set command run-result command
]
]
[
let inputs n-values number-of-inputs [ i -> word " x" i]
let inputs-as-string reduce word inputs
let command-string (word "[ [" inputs-as-string " ] -> " command inputs-as-string" ]")
set command run-result command-string
]
report command
]
error "The inputted command must be either an anonymous command, a string containing an anonymous command or a string containing a command"
;If the input is neither anonymous command nor string, an error is displayed
end
I'm trying to filter based on substrings within a string. These strings can contain A through E, or any combination of the five (such as ["C"] or ["A","C","D","E"]). Is there a way I could search through the entire string for each letter before returning a value?
The code I have currently (below) stops when the first IF statement is true. My goal is to be able to classify the entries by the letters in the string and use this calculation as a filter. So, an entry with the string ["A"] would be filtered under "A", but the string ["C","E"] would be filtered under both "C" and "E". Thank you for your help.
IF CONTAINS([Q2.6],"A") then "A"
ELSEIF CONTAINS([Q2.6],"B") then "B"
ELSEIF CONTAINS([Q2.6],"C") then "C"
ELSEIF CONTAINS([Q2.6],"D") then "D"
ELSEIF CONTAINS([Q2.6],"E") then "E"
END
I am trying to read a .txt file containing strings:
Delivery LHR 2018
Delivery LHR 2016
Delivery LHR 2014
Delivery LHR 2011
Delivery LHR 2019
Delivery LHR 1998
I have tried below codes but not working. It reported "expect a literal value" when running file-read
globals [input]
to setup
set input []
file-open "test.txt"
while [not file-at-end?]
[
let a quote file-read
let b quote file-read
set input lput a input
set input lput b input
print input
]
file-close
end
to-report quote [ #thing ]
ifelse is-number? #thing
[ report #thing ]
[ report (word "\"" #thing "\"") ]
end
You can kind-of get what you want with the csv extension which comes with NetLogo. It at least let's you specify a delimiter, so " ", but you'll have to manually read past all the blank columns it'll see.
extensions [csv]
globals [input]
to setup
set input []
let lines (csv:from-file "test.txt" " ")
foreach lines [ line ->
let col1 (item 0 line)
let i 1
while [item i line = ""] [ set i (i + 1) ]
let col2 (item i line)
show col2
set i (i + 1)
while [item i line = ""] [ set i (i + 1) ]
let col3 (item i line)
show col3
set input lput col1 input
]
show input
end
The reason it doesn`t work can be found in the file-read description from the NetLogo Dictionary Manual (https://ccl.northwestern.edu/netlogo/docs/dictionary.html#file-read)
[...]Note that strings need to have quotes around them.[...]
It is not a solution to add the quotes within NetLogo because file-read already throws an Error, if the next entry in the file is not one of number, list, string, boolean, or the special value nobody. And string in this case means, it needs to have quotes around it.
Thus, to read the file into NetLogo you have to put quotes around the strings in your input file. Alternatively, if the strings in your input file always have the same length, you could try to read the file using the primitive file-read-characters. Here is an example that should work with your input file:
to setup
file-open "test.txt"
while [not file-at-end?]
[
let a file-read-characters 8
let skip file-read-characters 4
let b file-read-characters 3
let c file-read
print (list a b c)
]
file-close
end
I'd like to remove spaces in strings that are between square brackets, with a single-line input.
More precisely, strings that match \[[a-zA-Z0-9 ,]+\] (caseless alphanum comma and space, between square brackets)
For example:
[ "This is a test": [a, b, c] ]
Should become:
[ "This is a test": [a,b,c] ]
I have tried several attempts with branching but couldn't find a syntax that worked.
For example:
/\[[a-zA-Z ,]\+\]/ba; :a;s/ //g;
but this replaces spaces on the whole line, as sed is line-based (my input is single-line).
I also tried the ;e command which would work if the whole string was prefixed with echo " and suffixed with ", but then that would be a single/double-quote escape hell (the whole string may contain ' and ").
GNU sed is welcome, but I would like to keep the dependencies minimal, so no perl unless required and no ruby, python, php...
Indeed, I know the following works perfectly, but php is a too large dependency:
echo preg_replace_callback(
"/\[[a-zA-Z ,]+\]/",
function ($m) { return str_replace(" ", "", $m[0]); },
'{"a":{"a":{"a":"a b c"},"b":{"b":[a, b]}}}'
);
outputs:
{"a":{"a":{"a":"a b c"},"b":{"b":[a,b]}}}
First pass — it works, but it is clumsy
Here is a solution that works with GNU and BSD sed:
sed -E \
-e '/\[[[:alnum:] ,]+\]/ {
s/\[([[:alnum:] ,]+)\]/^B\1^E/
:a
s/(^B[[:alnum:],]*) +/\1/
t a
s/^B/[/
s/^E/]/
}' \
data
The appearances of ^B and ^E are control characters (Control-B and Control-E in the original) that aren't going to appear in the actual text. (When first copied, I got ^B showing as and ^E showing as .)
Explanation:
/\[[[:alnum:] ,]+\]/ { — match lines containing square brackets with alphanumerics plus space and comma between them, and do the action sequence from { to the matching }.
s/\[([[:alnum:] ,]+)\]/^B\1^E/ — replace the square brackets with the control characters.
:a — set a label
s/(^B[[:alnum:],]*) +/\1/ — replace a ^B plus a sequence of alphanumerics or commas (which is captured) and a string of one or more spaces with just the capture.
t a — if the s/// command made a change, jump back to label a.
s/^B/[/ — replace the ^B with open square bracket.
s/^E/]/ — replace the ^E with close square bracket.
} — done
The branch is necessary because normally, the s/// operator won't rescan material that it has just substituted, whereas it is crucial that this keeps rescanning.
Given the slightly more extensive input file:
\[[a-zA-Z0-9 ,]+\] (caseless alphanum comma and space, between square brackets)
For example:
[ "This is a test": [a, b c] ]
[ "This is a test": [a, b, c] ]
[ "This is test 3": [ XXX, YYY, XXX ] ]
Should become:
[ "This is a test": [a,bc] ]
[ "This is a test": [a,b,c] ]
[ "This is test 3": [XXX,YYY,XXX] ]
the script generates:
\[[a-zA-Z0-9 ,]+\] (caseless alphanum comma and space, between square brackets)
For example:
[ "This is a test": [a,bc] ]
[ "This is a test": [a,b,c] ]
[ "This is test 3": [XXX,YYY,XXX] ]
Should become:
[ "This is a test": [a,bc] ]
[ "This is a test": [a,b,c] ]
[ "This is test 3": [XXX,YYY,XXX] ]
Second pass — it pays to review and refine
Looking at it, the ^E is not necessary, and maybe not the ^B either. The version above only deals with the first such set of square brackets on the line. You need more sensitive detector regexes (ones that insist on at least one space in between the markers) to handle multiple such patterns on a single line.
For example:
sed -E \
-e ':a
/\[[[:alnum:],]* [[:alnum:] ,]*\]/ s/(\[[[:alnum:],]*) +/\1/
t a' \
data
Explanation:
:a – set a label
/\[[[:alnum:],]* [[:alnum:] ,]*\]/ — if the line contains an open square bracket, zero or more alphanumeric-or-comma characters, one or more blanks, and zero or more alphanumeric-or-comma-or-blank followed by close square bracket, then …
s/(\[[[:alnum:],]*) +/\1/ — replace the open square and sequence of zero or more alphanumeric-or-comma characters and one or more blanks by just the non-blanks, and …
t a — jump to label a if there was a substitution done
Given:
[ "This is a test": [a, b c] ]
[ "This is test 2": [a, b, c] ]
[ "This is test 3": [ XXX , YYY , XXX ] ]
[ "This is test 4": [ XXX , YYY , XXX ] [ 1 , 2 , 3 ] ]
[ "This is test 5": [ XXX , YYY , XXX ] [ 1 , 2 , 3 ] [ abc ] [ ] ]
this produces:
["This is a test": [a,bc] ]
["This is test 2": [a,b,c] ]
["This is test 3": [XXX,YYY,XXX] ]
["This is test 4": [XXX,YYY,XXX] [1,2,3] ]
["This is test 5": [XXX,YYY,XXX] [1,2,3] [abc] [] ]
This is mostly equivalent to the answer by Beta; it could be further simplified by eliminating the match before the substitute command and modifying (slightly complicating) the substitute so it matches the work by Beta.
I think this will work:
sed -e ':a' -e 's#\(\[[a-zA-Z0-9,]*\) \([a-zA-Z0-9 ,]*\]\)#\1\2#
t a' filename
This function: Trim(In.Col, Right(In.Col, 2), 'T') works unless the last >2 characters are the same.
What I want:
abczzzz -> abczz
What I get:
abczzzz -> abc
How do I solve this?
The "T" option removes all trailing occurrences. Since you are limiting your input to only two characters with the Right() function, the second occurence will never be a trailing char.
It sounds though like you are just doing a substring..? If so, then you might just want to do a substring [ ] instead.
expression [ [ start, ] length ]
In.Col[(string length) - 2]
I prefer the Left() function, although it's equivalent here, as it's self-documenting.
Left(InLink.MyString, Len(InLink.MyString) - 2)