Nedal by se parser zjednodušit? – Regulární výrazy – Fórum – Programujte.com

Dobrý den,
malé dilema: Potřebuji string rozdělit na pole polí - na každém řádku skupinky oddělené separátorem. Nyní string dělím na list dle nových řádků a na každý řádek zvlášť používám další dělení. Nedá se strčit separátor a nový řádek do RegExu tak, aby vylezlo pole polí?
Děkuji.

#1 Matěj Andrle
Pokud děláš parser, tak nepotřebuješ jako výsledek pole polí, ale derivační strom.

Ani jsi nespecifikoval, jak velké to pole polí má být. Zřejmě to nebude pole polí, ale nějaká jiná struktura.

#2 Kit
Vím co potřebuji na parsování CSV...

proc parseLineOfCSV {line sepChar delChar} {
	set end 0; set sepRE \\$sepChar; set delRE \\$delChar
	regsub -- "$sepRE${delRE}${delRE}$" $line $sepChar\0${delChar}${delChar}\0 line
	regsub -- "^${delRE}${delRE}$sepRE" $line \0${delChar}${delChar}\0$sepChar line
	regsub -all -- {(^${delChar}|${delChar}$)} $line \0 line

	set line [string map [list \
		$sepChar${delChar}${delChar}${delChar} $sepChar\0${delChar} \
		${delChar}${delChar}${delChar}$sepChar ${delChar}\0$sepChar \
		${delChar}${delChar}           ${delChar} \
		${delChar}             \0 \
		] $line]

	while {[regexp -indices -start $end -- {(\0)[^\0]*(\0)} $line -> start end]} {
		set start [lindex $start 0]; set end [lindex $end 0]
		set range [string range $line $start $end]
		if {[string first $sepChar $range] >= 0} {
			set line [string replace $line $start $end [string map [list $sepChar \1] $range]]
		}
		incr end
	}

	return [split [string map [list $sepChar \0 \1 $sepChar \0 {}] $line] \0]
}

#3 Matěj Andrle
Na parsování CSV se regulární výrazy prostě nehodí. Použij hotový parser nebo si napiš nový od nuly, ale regulární výrazy do toho netahej.

#4 Kit
Tohle je ten hotový parser pro TCL! :S

#5 Matěj Andrle
Však právě. Vypadá to hnusně.

#6 Kit
Vypadá to pěkně a funguje to správně. Chci to jen zjednodušit! (Ty o TCL očividně vůbec nic nevíš.)

#7 Matěj Andrle
Pěkně to rozhodně nevypadá. Příklady na http://wiki.tcl.tk/38945 mi připadají hezčí.

V TCL jsem si napsal jen pár aplikací, ale jinak toho o něm skutečně moc nevím. Vadí to?

#8 Kit
To co includuje - to je ten můj parser! (Já to jen vytáhl, abych netahal zbytečně více kódu, než potřebuji.) Takže jsi zase ze sebe udělal vola. (Kritizuješ můj kód a pak mi doporučíš, abych použil přesně ten. :S)

#9 Matěj Andrle
Jsem zvědav, kdo ti po tomhle tvém duševním průjmu poradí...