Найти первое вхождение китайского иероглифа в строке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти первое вхождение китайского иероглифа в строке (Макросы/Sub)

Glen

Дата: Среда, 23.11.2022, 14:54 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Доброго дня.
Работаем с китайским подрядчиком.
Может быть кто то сталкивался с задачей найти первое вхождение китайского иероглифа в строке. Сам символ определяется как "?", но это не равно знаку вопроса.
В тексте могут быть: русские символы, цифры, любые знаки пунктуации, пробелы, английские символы, китайские символы.
Примеры текста:
Не смонтирован колодец МН 507 人孔MH 507未安装
Очистить поверхность ж/б изделий от битумной мастики над поверхностью грунта 将钢筋混凝土产品表面的沥青胶泥清理到地表以上
Датчики температуры наружного воздуха (ТЕ) установлены внутри помещения венткамеры, а не на улице (согласно документации завода-изготовителя и требованиям шеф-инженера) 环境空气温度传感器（TE）安装在空气处理装置的房间里，而不是外面（根据制造商的文件和建筑管理者的要求）。

Пехаль киндриков куравь, пехаль киндриков лузнись.

Сообщение отредактировал Glen - Среда, 23.11.2022, 15:02

Ответить

Serge_007

Дата: Среда, 23.11.2022, 15:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Первое вхождение не искал, но знаю что паттерн для китайских иероглифов такой:[vba]

Код

[^\u4e00-\u9fa5]

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Glen

Дата: Среда, 23.11.2022, 15:04 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Serge_007, проверил шаблон, только цифры ловит

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Serge_007

Дата: Среда, 23.11.2022, 15:07 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Вот эта функция извлекакет из любого текста только китайские иероглифы:[vba]

Код

Function ChinaExt(ChString As String) As String
Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
        With regEx
            .Global = True
            .Pattern = "[^\u4e00-\u9fa5]"
            ChinaExt = .Replace(ChString, "")
        End With
    Set regEx = Nothing
End Function

[/vba]

К сообщению приложен файл: 2127665.png (13.8 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Glen

Дата: Среда, 23.11.2022, 15:19 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Как идея пойдет.
Дальше справлюсь, СПАСИБО.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

_Boroda_

Дата: Среда, 23.11.2022, 15:23 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Формулой

Код

=ПОИСКПОЗ(0=1;СИМВОЛ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$999);1)))=ПСТР(A1;СТРОКА($1:$999);1);)

Не только китайские ищет, а вообще все, которые не
Для более нового Excel можно использовать функцию UNICODE

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

RAN

Дата: Среда, 23.11.2022, 15:23 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Function China(s As String) As Long
    Dim i&
    For i = 1 To Len(s)
        If AscW(Mid(s, i, 1)) > 19967 Then
            China = i
            Exit Function
        End If
    Next
End Function

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Страница 1 из 1
1