0

пишу dll на c#

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;

namespace TextToMDB
{
    public class TextToMDB
    {
       private static  bool chekComa(string arg)
        {
            if (arg.IndexOf(",")>0)
            {
                return false;
            }
            else
            {
                return true;
            }

    }
    [ComVisible(true)]
    public static void RemoveTab()
    {
        string text = File.ReadAllText(@"c:\Мои документы\333.txt");
        if ( chekComa(text))
        {
            text = text.Replace("\t",",");
            File.WriteAllText(@"c:\Мои документы\333.txt", text);
        }
    }
}

}

добавляю ссылку в акцессе

плюс добавляю введите сюда описание изображения

но к методу достучаться из кода vba не могу, при обращении к RemoveTab получаю сообщение

can't find dll entry point

4
  • 1
    Не знаю умеет ли c# экспортировать функции как найтивные, если и умеет то вам надо доставить ещё атрибутов (флагов). Атрибут ComVisible говорит о том что вы функцию будете использовать через ActiveX, т.е. посредством set myObj = CreateObject("Ваш класс") и myObj.RemoveTab а в такой способ нельзя. Класс нужно дополнительно регистрировать в системе (правила публикуемых COM обьектов).
    – nick_n_a
    19 окт 2016 в 13:17
  • Попробуйте добавить атрибут [System.Reflection.Obfuscation(Feature = "DllExport")] (взято из jonxxx.me/13-metatrader/…)
    – nick_n_a
    19 окт 2016 в 13:32
  • Вот пошаговое руководство как сделать экспортируемый COM. Как вызвать написано выше. codeproject.com/Articles/12673/…
    – nick_n_a
    19 окт 2016 в 14:25
  • А почему эти две процедуры нельзя написать на vba? Первая ф-ция InStr msdn.microsoft.com/ru-ru/library/47d6yh63.aspx Вторая CreateObject("Scripting.FileSystemObject"), OpenTextFile ReadAll и т.д. script-coding.com/WSH/FileSystemObject.html
    – nick_n_a
    20 окт 2016 в 7:19

1 ответ 1

1

Приведу пример одной процедуры по просьбам на с++ можно перевести и другую процедуру. Она переводится но с ней чуть больше мороки. Если вы всю задачу изложили, я предлагаю вам переписать это всё на с++. В первой процедуре нужно "угадать аргумент" - это единственная загвоздка. Он может быть wchar_t*, VARIANT*, VARIANT. Скорее всего первое.

   extern "C" _export bool chekComa(wchar_t* arg); // в некоторых языках лучше добавить для "простого" имени.
   _export bool chekComa(wchar_t* arg)
    {
      while (*arg!=0) if (*arg++ == ',') return true;
      return false;
}

По вашей просьбе вторую процедуру вам тоже переведут на с++. Второй вариант, а почему бы вам не написать всё на VBA?

 function  chekComa(string arg) as Bool 
 Begin
   if instr(arg,",") = 0 then begin
       chekComa = false
   end else begin
       chekComa = true
   end
 end function

sub RemoveTab()
  dim fso, f, d
  set fso = CreateObject("Scripting.FileSystemObject")
  set f = fso.OpenTextFile("c:\Мои документы\333.txt")
  d = f.ReadAll
  d = Replace(d, chr(8), ",")
  f.Close
  set f = fso.OpenTextFile("c:\Мои документы\333.txt",2)
  f.Write(d)
  f.Close
end sub

Писал без проверки в коде могут быть неточности.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.