forum.clarionlife.net

PavelNK писал(а): То что наваяли в JSON.CLW - это вообще тихий ужас.

Yufil писал(а): или, возможно, адресную арифметику и сишные функции, побыстрее будет

  Module ('')  ! В Global MAP
    ToUpper(byte char), byte, name('Cla$isftoupper')     ! ToUpper is far more efficient for single character conversion
    MemCmp(ulong buf1, ulong buf2, unsigned count), long, name('_memcmp')     ! GCR
    MemChr(ulong buf, long c, unsigned count), long, name('_memchr')          ! GCR
  end

FFind                PROCEDURE  (pSearchValue,p_Text)

trLen      long, auto
SearchLen   long, auto
i           long, auto
CharVal     long, auto
endAddress  long, auto
Addr        long, auto

  CODE
  
  StrLen = Len(p_text)
  Addr   = Address(p_Text)

  SearchLen = Size(pSearchValue)
  If StrLen = 0 Or SearchLen = 0 Or strLen < SearchLen  ! строка для поиска меньше, чем искомое значение
     Return 0
  end

  CharVal    = Val(pSearchValue[1])
  EndAddress = Addr + strLen - SearchLen
  i          = Addr          ! Установить начальный адрес для поиска

  Loop
    i = memchr(i, CharVal, EndAddress - i + 1)  ! Адрес первого символа pSearchValue
    If i = 0 then Return 0.                     ! Первый символ не найден

    ! у нас матч на первый символ содержит адреса - теперь проверка на совпадение в целом строке поиска
    if memcmp(i, Address(pSearchValue), searchLen) = 0 ! Найдено ? (with memcmp 0 = match)
       Return(i - Addr + 1)                             ! вернуть позицию байта, где pSearchValue совпало
    end

    If i < EndAddress
       i += 1                             ! не матч так адрес начала инкремент I и попробовать снова
    else
       Return 0                           ! pSearchValue не найдена
    end
  end

Игорь Столяров писал(а): Согласен, но JSON еще допиливают, да и вообще все в открытом тексте - можно дописывать в меру потребностей и способностей.

Yufil писал(а): Если строки большие, может быть, весьма тормозная операция.

Игорь Столяров писал(а): Точно ! Вспомнил, этот вопрос обсуждался и кто-то публиковал поиск текста на API (простите, не помню кто именно).
Примерно вот так делаем упрощенный аналог InString() - без управления начала поиска и шага (всегда 1):

PavelNK писал(а):Кстати о функции, проверил - она работает процентов на 15 медленнее INSTRING!

kreator писал(а): Я бы тоже не стал так уж обс...ть программистов SV. Нормально работающие функции. Было дело, проверял запись большого текстового файла. Драйвер ASCII работает также как и Винапишные функции.

kreator писал(а): Я бы тоже не стал так уж обс...ть программистов SV. Нормально работающие функции. Было дело, проверял запись большого текстового файла. Драйвер ASCII работает также как и Винапишные функции.

PavelNK писал(а): В части INSTRING я и не об..рал, а наоборот, хвалил - она работает быстрее самопала

PavelNK писал(а): Результаты, сильно отличаются. WinAPI сильно выигрывает, а ASCII вообще тормоз.

Игорь Столяров писал(а):Пытались выгружать большие массивы данных через ABXML (сделан через драйвер ASCII) - это что-то страшное ....
Ну как большие ... Тысяч 100 записей о товарах по 20-30 полей каждая запись. Ничего военного вроде бы, но оно выгружалось
несколько часов.