博客园-sekihinhttp://www.cnblogs.com/sekihin/--Anyone can codezh-cnMon, 08 Sep 2008 16:39:47 GMTMon, 08 Sep 2008 16:39:47 GMT60《C#和.NET实战:平台、语言与框架》-配套代码下载http://www.cnblogs.com/sekihin/archive/2008/09/04/1284143.htmlsekihinsekihinThu, 04 Sep 2008 08:22:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/09/04/1284143.htmlhttp://www.cnblogs.com/sekihin/comments/1284143.htmlhttp://www.cnblogs.com/sekihin/archive/2008/09/04/1284143.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1284143.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1284143.html

代码下载 



[新闻]淘宝与微软总部达成首次合作 Silverlight加入店铺]]>Web测试工具：Seleniumhttp://www.cnblogs.com/sekihin/archive/2008/09/04/1284065.htmlsekihinsekihinThu, 04 Sep 2008 07:35:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/09/04/1284065.htmlhttp://www.cnblogs.com/sekihin/comments/1284065.htmlhttp://www.cnblogs.com/sekihin/archive/2008/09/04/1284065.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1284065.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1284065.html阅读全文

[新闻]淘宝与微软总部达成首次合作 Silverlight加入店铺]]>VBA 的编写与执行http://www.cnblogs.com/sekihin/archive/2008/08/29/1279103.htmlsekihinsekihinFri, 29 Aug 2008 00:03:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/29/1279103.htmlhttp://www.cnblogs.com/sekihin/comments/1279103.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/29/1279103.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1279103.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1279103.html运行VBScript脚本;

Microsoft script 5.7
http://www.microsoft.com/downloads/details.aspx?FamilyID=47809025-D896-482E-A0D6-524E7E844D81&displaylang=en

 

编辑器; 　Visual Studio 6 OR Office VBA Editor

[新闻]苹果9日发布iTunes 8、iPhone 2.1和第四代iPod Nano]]>Enum和ViewState的相互转换http://www.cnblogs.com/sekihin/archive/2008/08/28/1278459.htmlsekihinsekihinThu, 28 Aug 2008 03:17:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/28/1278459.htmlhttp://www.cnblogs.com/sekihin/comments/1278459.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/28/1278459.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1278459.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1278459.html    Public Property CurrentPage() As PageType
        Get
            If Not ViewState("CurrentPage") Is Nothing Then
                Dim enumType As Type = GetType(PageType)
                Dim enumIndex As Integer = CInt(ViewState("CurrentPage"))
                Return DirectCast([Enum].ToObject(enumType, enumIndex), PageType)
            End If
            Return PageType.SeletionPage
        End Get
        Set(ByVal value As PageType)
            ViewState("CurrentPage") = CType(value, Integer)
        End Set
    End Property

[新闻]微软出品8GB蓝色和120GB Zune播放器]]>【VB.NET】Dictionary按Value进行排序http://www.cnblogs.com/sekihin/archive/2008/08/27/1277605.htmlsekihinsekihinWed, 27 Aug 2008 05:20:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/27/1277605.htmlhttp://www.cnblogs.com/sekihin/comments/1277605.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/27/1277605.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1277605.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1277605.htmlVB.NET

' sortbyvalue.vb

Imports System
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Collections.Generic

Class DictionarySortByValue
  Shared Sub makeDict(ByVal dict As Dictionary(Of String, Integer))
    Dim html As String

    ' HTMLの取得
    Using wc As New WebClient()
      html = wc.DownloadString("http://www.atmarkit.co.jp/")
    End Using

    ' 単語に分割して、各単語の出現頻度をカウント
    For Each s As String In Regex.Split(html, "\W")
      Dim word As String = s.Trim()
      If Not word = "" Then
        If dict.ContainsKey(word) Then
          dict(word) += 1
        Else
          dict(word) = 1
        End If
      End If
    Next
  End Sub

  Shared Sub Main()
    Dim dict As New Dictionary(Of String, Integer)
    makeDict(dict)

    Dim sorted As List(Of KeyValuePair(Of String, Integer)) = sortByValue(dict)
    ' sorted.Reverse() ' 逆順にする場合

    For Each kvp As KeyValuePair(Of String, Integer) In sorted
      Console.WriteLine(kvp.Key & ":" & kvp.Value)
    Next
    ' 出力例：
    ' a:542
    ' td:394
    ' 0:328
    ' width:289
    ' tr:284
    ' ……
  End Sub

  Shared Function hikaku( _
    ByVal kvp1 As KeyValuePair(Of String, Integer), _
    ByVal kvp2 As KeyValuePair(Of String, Integer)) As Integer

    ' Valueの大きい順にソート
    Return kvp2.Value - kvp1.Value
  End Function

  Shared Function sortByValue( _
    ByVal dict As Dictionary(Of String, Integer)) _
      As List(Of KeyValuePair(Of String, Integer))

    Dim list As New List(Of KeyValuePair(Of String, Integer))(dict)

    list.Sort(AddressOf hikaku)
    Return list
  End Function
End Class

' コンパイル方法：vbc sortbyvalue.vb

 

C#


// sortbyvalue.cs

using System;
using System.Net;
using System.Text.RegularExpressions;
using System.Collections.Generic;

class DictionarySortByValue {
  static void makeDict(Dictionary<string, int> dict) {
    string html;

    // HTMLの取得
    using (WebClient wc = new WebClient()) {
      html = wc.DownloadString("http://www.atmarkit.co.jp/");
    }

    // 単語に分割して、各単語の出現頻度をカウント
    foreach (string s in Regex.Split(html, "\\W")) {
      string word = s.Trim();
      if (word != "") {
        if (dict.ContainsKey(word)) {
          dict[word]++;
        } else {
          dict[word] = 1;
        }
      }
    }
  }

  static void Main() {
    Dictionary<string, int> dict = new Dictionary<string, int>();
    makeDict(dict);

    List<KeyValuePair<string, int>> sorted = sortByValue(dict);
    // sorted.Reverse(); // 逆順にする場合

    foreach (KeyValuePair<string, int> kvp in sorted) {
      Console.WriteLine(kvp.Key + ":" + kvp.Value);
    }
    // 出力例：
    // a:542
    // td:394
    // 0:328
    // width:289
    // tr:284
    // ……
  }

  static List<KeyValuePair<string, int>>
    sortByValue(Dictionary<string, int> dict)
  {
    List<KeyValuePair<string, int>> list
      = new List<KeyValuePair<string, int>>(dict);

    // Valueの大きい順にソート
    list.Sort(
      delegate(KeyValuePair<string, int> kvp1, KeyValuePair<string, int> kvp2) {
        return kvp2.Value - kvp1.Value;
      });
    return list;
  }
}

// コンパイル方法：csc sortbyvalue.cs
摘自：http://www.atmarkit.co.jp/fdotnet/dotnettips/441sortbyvalue/sortbyvalue.html

[新闻]千亿美元市值榜:微软居首移动第二 诺基亚退榜]]>【Visual Studio】Task List的用法http://www.cnblogs.com/sekihin/archive/2008/08/22/1273960.htmlsekihinsekihinFri, 22 Aug 2008 04:52:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/22/1273960.htmlhttp://www.cnblogs.com/sekihin/comments/1273960.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/22/1273960.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1273960.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1273960.htmlVS 2005的Task List基本用法：

1. Build Project，分别以黄色(Warning)跟红色(Error)列在Task 　List中。

2. 在Task上双击IDE就会帮你开启有问题的程式档，并把游标移到出问题的地方。

 

Task List高级用法自定义Task类别：

1.      预设的特殊注解标记(Token)，与自定义注解标记(Token)，如下图

 

2.     查看与自定义注解标记(Token)，如下图




[新闻]Google申请“海上数据中心”专利 可能付诸行动]]>【FAQ】「この Web ページがクリップボードへアクセスするのを許可しますか？」というダイアログボックスが表示されるhttp://www.cnblogs.com/sekihin/archive/2008/08/22/1273650.htmlsekihinsekihinFri, 22 Aug 2008 00:28:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/22/1273650.htmlhttp://www.cnblogs.com/sekihin/comments/1273650.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/22/1273650.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1273650.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1273650.html

図.1 注意をうながすダイアログボックス


これは ウェブブラウザが Windows のクリップボードにデータを書き込もうとしたときに表示されます。この現象が発生するウェブブラウザは、Internet Explorer 7 です。

i-SITE PORTAL では、次の操作を実行したときに上記の現象が起こる場合があります。
  • HTML エディタの[段落の挿入]ボタンをクリックしたとき
  • 定型入力フォームの「データ変換後プレビュー」画面を表示している状態で、
    [クリップボードへコピー]機能を利用したとき


ダイアログボックスが表示されると「アクセスを許可する」か「許可しない」かを選択する必要がありますが、通常は、「アクセスを許可する」を選択します。

この注意をうながすダイアログボックスは、クリップボードにデータをコピーしようとするたびに表示されます。

以下に、ダイアログボックスが表示されないようにする方法を記載します。
  1. Internet Explorer 7 のメニューバーから [ツール] を選択
  2. [インターネット オプション] を選択
  3. 「セキュリティ」 タブを選択
  4. ゾーン[インターネット] を選択
  5. [レベルのカスタマイズ] ボタンを押下
  6. [スクリプト] に関する設定項目を表示
  7. [スクリプトによる貼り付け処理の許可] ラジオボタンで [有効にする]を選択
  8. [OK]ボタンを押下


図.2 スクリプトによる貼り付け処理の許可を有効にする

[新闻]Google申请“海上数据中心”专利 可能付诸行动]]>【Spread for Web Forms】关于隐藏列的问题 http://www.cnblogs.com/sekihin/archive/2008/08/19/1271008.htmlsekihinsekihinTue, 19 Aug 2008 03:47:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/19/1271008.htmlhttp://www.cnblogs.com/sekihin/comments/1271008.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/19/1271008.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1271008.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1271008.html1.设置隐藏列

FpSpread1.ActiveSheetView.Columns(0).Visible = False

2.JavaScript取得隐藏列里的值

var objSpread = document.getElementById("FpSpread1");

objSpread.GetHiddenValue(0,"H1");

注："H1"为该隐藏列的lable值

3. 无法通过JavaScript给隐藏列赋值

 


 



[新闻]用Google Earth实时追踪人造卫星]]>【JavaScript】提交ASP.NEThttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268658.htmlsekihinsekihinFri, 15 Aug 2008 05:53:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268658.htmlhttp://www.cnblogs.com/sekihin/comments/1268658.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268658.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1268658.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1268658.html<script language="javascript">
            function submitpage()
            {
                window.opener.document.forms[0].action = 'mypage.aspx?callback=1';
                window.opener.document.forms[0].__VIEWSTATE.name = 'NOVIEWSTATE';
                window.opener.document.forms[0].submit();
            }
</script> window.opener.document.forms[0].__VIEWSTATE.name = 'NOVIEWSTATE'; 必须要加，否则会出权限错误

[新闻]传IBM将以35亿美元至40亿美元收购北电]]>【JavaScript】取得QueryStringhttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268319.htmlsekihinsekihinFri, 15 Aug 2008 00:22:00 GMThttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268319.htmlhttp://www.cnblogs.com/sekihin/comments/1268319.htmlhttp://www.cnblogs.com/sekihin/archive/2008/08/15/1268319.html#Feedback0http://www.cnblogs.com/sekihin/comments/commentRss/1268319.htmlhttp://www.cnblogs.com/sekihin/services/trackbacks/1268319.html<script language="javascript">
            var url=location.search;
            var Request = new Object();
            if(url.indexOf("?")!=-1)
            {
            var str = url.substr(1)
            strs = str.split("&");
            for(var i=0;i<strs.length;i++)
            {
 　                Request[strs[i ].split("=")[0]]=unescape(strs[ i].split("=")[1]);
            }
            }
            var q1 = Request["q1"]
        </script>

[新闻]传IBM将以35亿美元至40亿美元收购北电]]>