Lua - Как найти подстроку с расхождением в 1 или 2 символа

Если вы знаете, где должен быть символ, используйте . вместо этого символа: a:find("un.verse")

Однако похоже, что вы ищете поиск нечеткой строки. Это выходит за рамки библиотеки Lua string. Вы можете начать с этой статьи: http://ntz-develop.blogspot.com/2011/03/fuzzy-string-search.html

Что касается реализации нечеткого поиска Lua — я не использовал их, но гугление «lua fuzzy search» дает несколько результатов. Некоторые из них основаны на этом документе: http://web.archive.org/web/20070518080535/http://www.heise.de/ct/english/97/04/386/

Попробуйте https://github.com/ajsher/luafuzzy.

Похоже, вам нужно что-то вроде TRE:

TRE — это легкая, надежная и эффективная библиотека сопоставления регулярных выражений, совместимая с POSIX, с некоторыми интересными функциями, такими как приблизительное (нечеткое) сопоставление.

Приблизительное сопоставление с образцом позволяет совпадениям быть приблизительными, то есть позволяет совпадениям быть близкими к искомому образцу с некоторой степенью близости. TRE использует меру расстояния редактирования (также известную как расстояние Левенштейна), где символы могут быть вставлены, удалены или заменены в искомом тексте для получения точного совпадения. Каждая вставка, удаление или замена увеличивает расстояние или стоимость совпадения. TRE может сообщать о совпадениях, стоимость которых ниже некоторого заданного порогового значения. TRE также можно использовать для поиска совпадений с наименьшей стоимостью.

Привязка Lua для него доступна как часть lrexlib.

Если вы действительно ищете разницу в одном символе и не заботитесь о производительности, вот простой подход, который должен работать:

local a = "Hello un#verse"

local myfind = function(s,p)  
  local withdot = function(n)
    return p:sub(1,n-1) .. '.' .. p:sub(n+1)
  end
  local a,b
  for i=1,#s do
    a,b = s:find(withdot(i))
    if a then return a,b end
  end
end

print(myfind(a,"universe"))

Простой собственный подход (исходя из предположения, что шаблон сохраняет одинаковую длину):

function hammingdistance(a,b)
    local ta={a:byte(1,-1)}
    local tb={b:byte(1,-1)}
    local res = 0
    for k=1,#a do
        if ta[k]~=tb[k] then
            res=res+1
        end
    end
    print(a,b,res) -- debugging/demonstration print
    return res
end

function fuz(s,pat)
    local best_match=10000
    local best_location
    for k=1,#s-#pat+1 do
        local cur_diff=hammingdistance(s:sub(k,k+#pat-1),pat)
        if  cur_diff < best_match then
            best_location = k
            best_match = cur_diff
        end
    end
    local start,ending = math.max(1,best_location),math.min(best_location+#pat-1,#s)
    return start,ending,s:sub(start,ending)
end

s=[[Hello, Universe! UnIvErSe]]
print(fuz(s,'universe'))

Отказ от ответственности: не рекомендуется, просто для удовольствия:

Если вам нужен лучший синтаксис (и вы не возражаете возиться с метатаблицами стандартного типа), вы можете использовать это:

getmetatable('').__sub=hammingdistance
a='Hello'
b='hello'
print(a-b)

Но обратите внимание, что a-b не равно b-a таким образом.