空军

我刚才也发现了！

正需要，谢谢了

Good

看来空军很闲啊。。。

具体计算的C#程序见 [url]http://topic.csdn.net/u/20100327/10/943968eb-9c66-44f1-b086-b58c7f6a1060.html[/url] 129楼。 另见：[url]http://bbs.emath.ac.cn/thread-2276-1-1.html[/url]

非常不错的文章。 更一般的，可以讨论整数的分划(或者说整数的分拆)。请参见： [url=http://en.wikipedia.org/wiki/Partition_%28number_theory%29]Partition (number theory)[/url]

A=R,1和1/2配对,2和1/4配对,4和1/8配对,...其它的x>0和1/x配对

我想要买

试用了一下，非常实用，谢谢啦

很好，很强大

楼主,怎么弄,都不成功啊,我用C#加密，但是不能用DELPHI解密

这个问题我也发现了

楼主大哥，太谢谢你了！

好文

这个功能非常的不错

另一种C#解法

用C#重写了一下：

和气和气
我是新人，看到大哥们这样真的郁闷，本着讨论的精神多好啊。
顺便谢谢楼主，满足了我需求~
拜一记

CompilerResults cr = new VBCodeProvider().CompileAssemblyFromSource这里编译报错：
“Microsoft.VisualBasic.VBCodeProvider”并不包含对“CompileAssemblyFromSource”的定义

很实用的功能

以下是vrhero的方法，详见：
http://topic.csdn.net/u/20080129/20/900a776f-92ed-435a-bb26-1ecebf804a8f.html

using System;
using System.Collections;

class Test
{
  static void Main()
  {
    Console.WriteLine(Max());                                // 输出: (null)
    Console.WriteLine(Max(1));                               // 输出: 1
    Console.WriteLine(Max(.3, -.5));                         // 输出: 0.3
    Console.WriteLine(Max(0M, -3M, 3.14M));                  // 输出: 3.14
    Console.WriteLine(Max(9f, -1f, 3.14f, -2.718f));         // 输出: 9
    Console.WriteLine(Max(0u, 23u, 3114u, 120718u, 5678u));  // 输出: 120718
  }
 
  static object Max(params object[] x)
  {
    if(x.Length == 0) return null;
    ArrayList a = new ArrayList(x.Length);
    a.AddRange(x);
    a.Sort();
    return a[x.Length - 1];
  }
}

@eastasp
晕，当然是不一样的，还原一样就OK了

最好的办法，你试一试看看吧
protected override void WndProc(ref Message m)
{
if (m.Msg == 0xa1 && (int)m.WParam == 0x3)
{
return;
}
if (m.Msg == 0xa3 && ((int)m.WParam == 0x3 || (int)m.WParam == 0x2))
{
return;
}
if (m.Msg == 0xa4 && ((int)m.WParam == 0x2 || (int)m.WParam == 0x3))
{
return;
}
if (m.Msg == 0x112 && (int)m.WParam == 0xf100)
{
return;
}
base.WndProc(ref m);
}
除了可以点击关闭按钮以外，任何针对标题栏的操作都无效，非常不错。

'Fibonacci Number: F(73)
n=73
x=sqrt(5)
y=((1+x)/2)^n
z=((1-x)/2)^n
return (y-z)/x

不错

繁体字好看

繁体字

同意用银河的代码代替 Calc.cs 源程序中的 89 - 93 行。

我也喜歡用繁體
本來是研究問題的 怎麽說著就變成～
希望會的就答不會的就請教學習 不要動不動就擺出一副領導的架勢給誰看呀！！

Calc.cs 源程序中的 89 - 93 行可用以下一行代替:
if (!double.TryParse(tbxA2.Text, out x))

很好的文章
:)

代码很简练！而且难度也有所提高！改日我再重新我那个，呵呵，见笑了！

★:挂接事务的例子:这段代码一定要在try中执行,在错误处理中要有关闭Conn的代码,这样才能将未提交的事务回滚
SqlTransaction tx = null;
Conn = NF.CreateConn();

SqlCommand cmdt = new SqlCommand();
cmdt.Connection = Conn;
cmdt.CommandText = "SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED";//这样被封锁的表就都能被读取了
cmdt.ExecuteNonQuery();

tx = Conn.BeginTransaction();//如果不和tx挂接则这个Conn便不能再读取其他数据了,要读取必须再开连接

xzyiau iau = new xzyiau(Conn);
iau.tablename = "_XZY信息发布";
iau.keyfield = "id";
iau.transaction = tx;
iau.action = "insert";
iau.addfield("ids", "");
iau.addfield("栏目", "建设新闻");
iau.addfield("标题", "视察情况");
iau.addfield("创建日期", "2007-08-01 13:05");
iau.addfield("创建人", "邢志云");
iau.execute();

xzyiau iau2 = new xzyiau(Conn);
iau2.tablename = "_XZY信息发布";
iau2.keyfield = "ids";
iau2.transaction = tx;
iau2.action = "update";
iau2.addfield("ids", "e36165d1-b266-483d-93fb-ab4c7ba4fba9");
iau2.addfield("栏目", "vv");
iau2.addfield("标题", "Excel使用简介2");
iau2.addfield("创建日期", "2007-08-01 13:05");
iau2.addfield("创建人", "邢志云");
iau2.execute();

xzyiau iau3 = new xzyiau(Conn);
iau3.transaction = tx;
iau3.tablename = "_XZY信息发布";
iau3.action = "delete";
iau3.deletewhere = "where ids in('03d5a35a-b53a-4e77-b4aa-27176044bd15')";
int k = iau3.execute();//返回影响数据的数量

tx.Commit();//如果上面出错,则不会执行到这里,在错误捕获中关闭连接的时候,会自动将未提交的事务关闭

★修该:
Conn = NF.CreateConn();
xzyiau iau = new xzyiau(Conn);
iau.tablename = "_XZY信息发布";
iau.keyfield="ids";//必须是字符或uniqueidtifier类型的
iau.action="update";
iau.addfield("ids", "e36165d1-b266-483d-93fb-ab4c7ba4fba9");//根据这个来定位记录
iau.addfield("栏目", "学习园地");
iau.addfield("标题", "Excel使用简介");
iau.addfield("创建日期", "2007-08-01 13:05");
iau.addfield("创建人", "邢志云");
iau.execute();

每个人都攒了一些数据库操作的代码,我也有个数据库增删改的,是这么用的
★新增:
Conn = NF.CreateConn();
xzyiau iau = new xzyiau(Conn);
iau.tablename = "_XZY信息发布";
iau.keyfield="ids";//必须是字符或uniqueidtifier类型的
iau.action="insert";
iau.addfield("ids", "");//主键为空则会自动创建,如果不为空则用传入的作为主键
iau.addfield("栏目", "学习园地");
iau.addfield("标题", "word使用简介");
iau.addfield("创建日期", "2007-08-01 12:55");
iau.addfield("创建人", "邢志云");
iau.execute();//返回影响数据的数量,一般是1

to Pootow:

你看我用繁体字回复的的就想当然我是在台湾香港，呵呵，我这里用简体回复你肯定会认为我在大陆，如果我下次用E文回复的话，你可能会又以为我在M国了。呵呵，开个玩笑。 :)

请原谅我上次回复的语气冲了点，说声对不起。

其它的不想多说了，随便说一声，我是地地道道的大陆人。

to zoti:
看了你的回复才让人啼笑皆非，你用繁体字，难道是台湾香港的？不过不管怎么样，看来中国人的确做事不严谨，你请注意我说的是“可能”，不是一定。

你说的那种情况确实会拥有多个出口IP，但是，即使只有一个Internet连接也会有不同的公网IP，你不了解大陆的网络运营和拓扑情况，你的ISP的路由配置你是做不了主的。如果你的ISP有很多带宽资源的提供商，你访问不同地域的主机，得到的你的公网IP也会不同。

就凭你的反问句，我就知道你很鄙视作网管的人。

此外，我并没有说搂主的文章有错误，只是补充说明。

我还是要说，中国的气氛就这样。我没见过几个Dev同时Tech也很好的。

非常反感Pootow的態度﹐

首先﹐"如果你多添加几个外部测试主机，你可能会得到不同的“本机的外部地址”"這個是不可能的﹐除非是這台上網的電腦有多個internet出口﹐并且路由器那邊會動態調整出口 ﹐否則不可能會有多個外部IP。

其次﹐"现在的程序员，没有一点Tech的素质"﹐唉﹐不想說什么﹐動不動就批評別人的人﹐可想而已心胸如何

"去问问你们平时鄙视的做低技术含量工作的网管，他们估计没有一个会不知道的"﹐我只想問的是﹐到底是誰在"鄙视做低技术含量工作的网管"?

"真是悲哀。中国的气氛就是这样"怎么什么事情都動不動就扯到"中國"這么大的名詞上來﹐如果說是悲哀﹐那這確實是很悲哀。


樓主的這篇文章沒錯﹐如果大家知道不通過外部反饋IP得到自己IP的方法﹐請賜教。先謝了。

受用了﹐頂

@在北京的湖南人
这是微软的实现，句号转成问号应该是因为微软不知道句号对应哪个符号，因为半角句点(.)已经有全角的下圆点(．)对应了。

非常谢谢你!
感叹一下:.NET实在太强大了!!!!

楼主的这些方法恐怕没有经过自己的测试吧？
比如你的全角转半角，竟然把全角的句号转换成了问号

是不是您发的程序有问题?

C#加密解密的结果不一样嘛

刚才少了第一行，完整的代码是这样的，谢谢……

function myenctstr(const s:string; skey:string):string;
var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=myStrtoHex(s);
hexskey:=myStrtoHex(skey);
midS :=hexS;
for i:=1 to (length(hexskey) div 2) do
begin
if i<>1 then midS:= tmpstr;
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
showmessage(inttostr(a));
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := tmpstr;
end;

楼主你好！能否帮我翻译一段Delphi代码？也是加密的，我一直搞不定，拜托你了！
如果可以帮我，请将翻译后的代码发我邮箱：pollyzlb@hotmail.com
小弟不胜感激！

var
i,j: integer;
hexS,hexskey,midS,tmpstr:string;
a,b,c:byte;
begin
hexS :=myStrtoHex(s);
hexskey:=myStrtoHex(skey);
midS :=hexS;
for i:=1 to (length(hexskey) div 2) do
begin
if i<>1 then midS:= tmpstr;
for j:=1 to (length(midS) div 2) do
begin
a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
showmessage(inttostr(a));
b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
c:=a xor b;
tmpstr := tmpstr+myStrtoHex(chr(c));
end;
end;
result := tmpstr;
end;

鎮ㄥ湪2006-12-01搴旇仒浜嗚嫃宸炲瘜椤哄寘瑁呭埗鍝佹湁闄愬叕鍙哥殑浜轰簨涓€鑱屽凡琚祻瑙?/td>