From ac4031bc57b6ae56ecaba5af2b0f9cfd5a13ceb2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Paul=20H=C3=A4nsch?= <paul@plutz.net>
Date: Sun, 6 Apr 2025 12:03:07 +0200
Subject: [PATCH] allow `check` function for field indexes

---
 db23.sh | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/db23.sh b/db23.sh
index e8a0d64..8ee6f4f 100755
--- a/db23.sh
+++ b/db23.sh
@@ -31,8 +31,12 @@ DB2() {
     open|load) file="$1"
       cat "$file" || return 1
       ;;
-    check|contains) key="$(STRING "$1")" val=''
+    check|contains) key="$(STRING "$1")"  seq="${2:-1}"
       val="${data##*"${BR}${key}"	}" val="${val%%"${BR}"*}"
+      [ "$val" = '' ] && return 1 || val="${val}	"
+      while [ $seq -gt 1 ]; do
+        seq=$((seq - 1)) val="${val#*	}"
+      done
       [ "$val" = '' ] && return 1
       ;;
     count) key="$(STRING "$1")" val='' seq=0
-- 
2.39.5