如何强制 sqlmetal 保持字段名称大小写？

Question

当 Visual Studio 自动生成 dbml 文件时，我得到了表中出现的确切字段名称。

但是，由于VS不提供dbml的刷新功能，因此我手动运行sqlmetal来重新创建dbml文件。它工作得很好，但有一个例外——sqlmetal“更正”名称

ses_Id -> Ses_Id
aga_Id -> Aga_Id

等等——它可能会将camelCase更改为CamelCase。

Sqlmetal 帮助没有列出任何保持字段名称不变的开关（只有复数开关）。那么，有谁知道保持字段名称大小写的隐藏开关吗？

先感谢您。

已解决

没有这样的开关，并且 MS 收到了有关该问题的通知 - 添加此类功能的愿望报告（因为它会导致更新项目出现问题）已被关闭，因为不会修复:-(

Answer 1

我怀疑是不是有隐藏开关。我遇到了同样的问题，所以我编写了一个简单的 Perl 脚本来解决它：

# Usage: fdbml.pl in.dbml out.dbml
my $in_file = $ARGV[0];
my $out_file = $ARGV[1];

# Scrape in file for identifiers
my @identifiers;
open IN, "<$in_file";
while (<IN>) {
    if ($_ =~ /<Table Name="(?:\w+\.)?(\w+)" Member="(\w+)"/) { push @identifiers, "$1 $2"; }
    if ($_ =~ /<Function Name="(?:\w+\.)?(\w+)" Method="(\w+)"/) { push @identifiers, "$1 $2"; }
}
close IN;

# Translate in file to out file
open IN, "<$in_file";
open OUT, ">$out_file";
while (<IN>) {
    my $line = $_;

    # Replace identifiers
    foreach my $identifier (@identifiers) { 
        my ($new, $old) = split(' ', $identifier);
        $line =~ s/"$old((?:Result)?)"/"$new$1"/g;
    }   
    $line =~ s/<Parameter Name="(\w+)" Parameter="\w+"/<Parameter Name="$1" Parameter="$1"/;

    print OUT $line;
}
close OUT;
close IN;

只需将所有内容保存到 fdbml.pl，确保安装了 ActiveState Perl，然后在 DBML 文件上运行它：

fdbml.pl old.dbml new.dbml

Ben