Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Longest-common-substring/VBScript/longest-common-substring.vbs
+++ b/Task/Longest-common-substring/VBScript/longest-common-substring.vbs
@ -0,0 +1,14 @@
+Function lcs(string1,string2)
+	For i = 1 To Len(string1)
+		tlcs = tlcs & Mid(string1,i,1)
+		If InStr(string2,tlcs) Then
+			If Len(tlcs) > Len(lcs) Then
+				lcs = tlcs
+			End If
+		Else
+			tlcs = ""
+		End If
+	Next
+End Function
+
+WScript.Echo lcs(WScript.Arguments(0),WScript.Arguments(1))