Private Declare Function getdata Lib "sgid.dll" Alias "_GetData@4" (ByVal s As String) As Boolean
Dim n As Long
Dim fp As Long
Dim file1 As String
Dim b As Boolean
Dim s As String * 40
List1.Clear
n = getdatanum(mm, nn)
If n > 0 Then
fp = FreeFile
file1 = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") + ".txt"
Open App.Path & "\" & file1 For Append As fp
aaa: b = getdata(s)
If b = False Then
GoTo endd
End If
Print #fp, s
List1.AddItem (s)
GoTo aaa
Else
If n = 0 Then
List1.AddItem ("无数据")
Else
List1.AddItem ("错误")
End If
Exit Sub
endd:
Close fp
这个人家提供的一个VB调用那个"sgid.dll"动态库的代码
我改到C#中来，是这样的
[DllImport("sgid.dll",EntryPoint="_GetData@4")]
public static extern bool getdata(string s);
然后我大概的是这样调用的
do
{
this.WriteTxt(ss);
}
while(getdata(ss));其中this.WriteTxt(ss),的方法是写入txt文本文件的。
private void WriteTxt(string s)
{
string path=@"c:\kqxt.txt";
if(!File.Exists(path))
{
using(StreamWriter sw=File.CreateText(path))
{
sw.WriteLine(s);
}
}
else
{
using(StreamWriter sw=File.AppendText(path))
{
sw.WriteLine(s);
}
}
}
问题是程序运行后在path=@"c:\kqxt.txt这个文本文件里什么数据也没有，奇怪，各位帮我看看是不是我的调用的时候有问题，又该怎么来改呢！谢谢 谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

[CODE]string path="c:\\kqxt.txt";
StreamWriter sw ;
if(!File.Exists(path))
{
sw = File.CreateText(path);
sw.WriteLine(s);
}
else
{
sw=File.AppendText(path);
sw.Write(s);
}
sw.Close();

[/CODE]

不是这个问题，一定是调用的问题，因为那段代码 我放到其他地方是可以的！

呵呵自己顶上去。嘿嘿，，，人呢人呢

do
{
this.WriteTxt(ss);
}
while(getdata(ss));

在这里设置一个断点，然后运行看这个循环运行了多少次就知道了， 断点到达那句的时候，你还可以看看ss是什么值。

设置了呀，全是空但是已经循环了那么多次！但每次ss的值都是空呀！

俺不懂，以前学过vb早还给老师了。。。