VBA для поиска / замены с использованием списка параметров из файла и включения пробелов в строку поиска - PullRequest
Новая
       3

VBA для поиска / замены с использованием списка параметров из файла и включения пробелов в строку поиска

0 голосов
/ 15 января 2020

Цель состоит в том, чтобы предоставить список замещающих строк в файле, чтобы его можно было повторно использовать с VBA. В настоящее время я делаю это вручную и мне нужно включить в поисковый запрос начальный и / или конечный пробел, чтобы дифференцировать возможные результаты.

Например: «Модуль E что угодно» ищет «E» и заменяет «Восток». Результат - «Модуль Восток, что угодно». Но я не знаю, как обеспечить пробелы в строке поиска для подпрограммы, которая обрабатывает много пар поиска / замены.

целевая электронная таблица: enter image description here

замена файл входных параметров: 

slv,Slave
ign,Igniter 
" e ",East 
west,West
vlv,Valve
err, Error
ERROR, Error
spk, Spark
detectd, Detected
"DET", Detected
Module, Module

И код на данный момент: 

Sub OpenReplacementParametersFile()
    Dim file As String
    file = "replacement pairs.csv"
    Open file For Input As #1
    Worksheets("TestSheet").Select
    Dim parm1 As String
    Dim parm2 As String
    Do Until EOF(1)
        Line Input #1, LineFromFile
        lineItems = Split(LineFromFile, ",")
        parm1 = lineItems(0)
        parm2 = lineItems(1)

        'Call FindReplaceTextForColumnC(lineItems(0), lineItems(1))
        Call FindReplaceTextForColumnC(parm1, parm2)
    Loop

End Sub

' https://stackoverflow.com/questions/25530193/excel-find-and-replace-macro-one-column-only
Sub FindReplaceTextForColumnC(findStr As String, newStr As String)
    Columns("C").Replace What:=findStr, _
                            Replacement:=newStr, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False

End Sub

Цените любые отзывы / комментарии (даже изощренные). Спасибо

...