tipp: Str Zuweisungen nicht löschen

Author: Jan Baudisch

tipp.ps1

@@ -22,7 +22,7 @@ if (-not ($in | Test-Path)) {
     exit 1
 }
 
-$lines = Get-Content $in | Select-String -pattern '^\"' -notmatch | Where {$_.ToString().Trim().Length -gt 0}
+$lines = Get-Content $in | Select-String -pattern '^\"[^→]*$' -notmatch | Where {$_.ToString().Trim().Length -gt 0}
 
 if ($out) {
     foreach ($line in $lines) {

tipp.sh

@@ -20,7 +20,7 @@ if [ ! -f $1 ]; then
 fi
 
 if [ $2 ]; then
-    sed '/^\"/d' $1 | sed '/^[[:space:]]*$/d' - > $2
+    sed '/^\"[^→]*$/d' $1 | sed '/^ *$/d' - > $2
 else
-    sed '/^\"/d' $1 | sed '/^[[:space:]]*$/d' -
+    sed '/^\"[^→]*$/d' $1 | sed '/^ *$/d' -
 fi