AutoHotkey Community

Code: Select all

file = %A_ScriptDir%\file.csv
MsgBox, 64, Left from "c", % left(file, "c")
MsgBox, 64, Left from "g", % left(file, "g")

left(file, find) {
 Loop, Read, %file%
 { line := [], found := 0
   Loop, Parse, A_LoopReadLine, CSV
    line.Push(A_LoopField), A_LoopField = find && found := A_Index
   If !found
    Continue
   For each, cell in line
    each != found && str .= (str > "" ? "," : "") cell
   Return str
 }
}

Code: Select all

file = %A_ScriptDir%\file.csv
resultArr := left(file, "c")
for k, v in resultArr
	MsgBox, % "Item " k " left from 'c': " v
Return

left(file, find) {
 Loop, Read, %file%
 { line := [], found := 0
   Loop, Parse, A_LoopReadLine, CSV
    line.Push(A_LoopField), A_LoopField = find && found := A_Index
   If !found
    Continue
   For each, cell in line
    each != found && str .= (str > "" ? "," : "") cell
   Return Strsplit(str, ",")
 }
}

Code: Select all

text =
(
1,a,b,d,c
2,d,e,f
3,g,h,j
)

resultArr := left(text, "c")
for k, v in resultArr
	MsgBox, % "Item " k " left from 'c': " v
Return

left(text, find) {
 Loop, Parse, text, `n
 { line := [], found := 0
   Loop, Parse, A_LoopField, CSV
    line.Push(A_LoopField), A_LoopField = find && found := A_Index
   If !found
    Continue
   For each, cell in line
    each != found && str .= (str > "" ? "," : "") cell
   Return Strsplit(str, ",")
 }
}

Code: Select all

FileRead, text, % A_ScriptDir "\file.csv"

Code: Select all

#SingleInstance, Force

FileRead, content, file.csv
toFind	:="c"
toShow := [3,2,1]														; show returned items in this order

content := "															; remove this block after testing so the 'FileRead' output is used instead.
(
1,a,b,c
2,d,e,f
3,c,h,i
4,a,t,c
)"

Loop, Parse, content, `n												; parse content using line breaks
		InStr(A_LoopField, tofind) ? i:= StrSplit(A_LoopField,",") : ""	; push last line (in case there are multiple occurences) that contains the search pattern) into an array 
Loop % i.Count()
	    res .= i[toShow[A_Index]]										; create output in order that is specified in 'toShow' 
MsgBox % res

Code: Select all

csv =
(
1,a,b,c
2,d,e,f
3,g,h,j
)
arr := Left(csv, "g")
MsgBox, % arr[1] . " " . arr[2] . " " . arr[3]

arr := Left(csv, "c")
MsgBox, % arr[1] . " " . arr[2] . " " . arr[3]

Left(csv, item) {
   RegExMatch(csv, "m`a)^(?=\V*\Q" . item . "\E)\V*$", m)
   l := RegExReplace(m, "(,)?\Q" . item . "\E(?(1)|,)")
   Return StrSplit(l, ",")
}

Code: Select all

A := new biga() ; requires https://www.npmjs.com/package/biga.ahk

csv := [["a", "b", "c"]
	,["d", "e", "f"]
	,["g", "h", "i"]]

; find a row that has a "c" in the third collumn
wholerow := A.find(csv, {3: "c"})
; => ["a", "b", "c"]

; find a row that has an "e" in the second collumn
wholerow := A.find(csv, {2: "e"})
; => ["d", "e", "f"]

Code: Select all

find := "c"

 Loop, Read, file = %A_ScriptDir%\file.csv
 { line := [], found := 0
   Loop, Parse, A_LoopReadLine, CSV
    line.Push(A_LoopField), A_LoopField = find && found := A_Index
   If !found
    Continue
   For each, cell in line
    each != found && str .= (str > "" ? "," : "") cell
		found := Strsplit(str, ",")
			var1:= found[1]
			var2:= found[2]
			var3:= found[3]			
 }
MsgBox % var1 " " var2 " " var3