Проблема не решена?
Не нашел где у вас в коде происходит сравнение....
Цитата serraxer:
|
Застрял на моменте где надо сравнить с должностью на русском в AD и добавить на английском сравнив в файле. »
|
Цитата serraxer:
'Set oTitlesRUEN = CreateObject("Scripting.Dictionary")
'sFilePath = sPath & "\titles_ru_en.txt"
'nCount = 0
'If objFSO.FileExists( sFilePath ) Then
' Set oIniFile = objFSO.OpenTextFile( sFilePath, 1, False )
' Do While NOT oIniFile.AtEndOfStream AND nCount<100
'
' sLine = Trim( oIniFile.ReadLine )
' nCount = nCount + 1
' nPos=InsTR(1,sLine,"=",1)
' if nPos>0 Then
' sKey = UCase(Trim( Left( sLine, nPos - 1 ) ))
' sValue = Trim( Mid( sLine, nPos + 1 ) )
' oTitlesRUEN.Add sKey, sValue
' end If
' Loop
' oIniFile.Close()
'end if »
|
Не проще использовать массив? И провести сравнение поиском или просто перебором.
