苦闷，愿付100元报酬求以下功能的小程序。

Question

在这里你只需要多给分就行了,RMB滴不需要
当然,如果是1w的话那就不一样了,HOHO~

Answer 1

可以先把数据分行读入一个数组中,然后再把每一行用 split 来切成7部分,然后再进行处理就很简单了

Answer 2

UP，搞好了？這不太難！
拿這RMB100去書店購C#基礎書（有代碼的）看下就可以了！
如購吉林明日的C#基礎/C#范例

Answer 3

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;namespace ReadText
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }        private void button1_Click(object sender, EventArgs e)
        {
            OpenFileDialog _OpenFile = new OpenFileDialog();
            _OpenFile.Filter = "*.txt|*.txt";            if (_OpenFile.ShowDialog() == DialogResult.OK)
            {
                richTextBox1.Text = "";
                tabControl1.SelectedIndex = 0;
                richTextBox1.Text = System.IO.File.ReadAllText(_OpenFile.FileName, Encoding.Default);
                label1.Text = richTextBox1.Lines.Length.ToString() + "条";
            }
        }        private void Form1_Load(object sender, EventArgs e)
        {        }        private void button2_Click(object sender, EventArgs e)
        {
            if (richTextBox1.Text.Trim().Length != 0)
            {
                richTextBox2.Text = "";
                tabControl1.SelectedIndex = 1;
                System.Collections.Hashtable _RowHashID = new System.Collections.Hashtable();
                for (int i = 0; i != richTextBox1.Lines.Length; i++)
                {
                    string[] _ValueData = richTextBox1.Lines[i].Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);
                    
                    if(_ValueData.Length>=1 && !_RowHashID.ContainsKey(_ValueData[0]))
                    {
                        _RowHashID.Add(_ValueData[0], null);
                        richTextBox2.SelectedText = richTextBox1.Lines[i]+"\r\n";                        
                    }                  
                    if (_ValueData.Length>=3 && comboBox1.Items.IndexOf(_ValueData[2].Trim()) == -1)
                    {
                        comboBox1.Items.Add(_ValueData[2].Trim());
                    }
                }
                label2.Text = _RowHashID.Count.ToString() + "条";
            }
        }        private void button3_Click(object sender, EventArgs e)
        {
            if (comboBox1.SelectedItem.ToString().Trim().Length != 0)
            {
                richTextBox3.Text = "";
                tabControl1.SelectedIndex = 2;
                int _Count = 0;
                for (int i = 0; i != richTextBox2.Lines.Length; i++)
                {
                    string[] _ValueData = richTextBox2.Lines[i].Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);                    if (_ValueData.Length >= 3 && comboBox1.SelectedItem.ToString().Trim()==_ValueData[2])
                    {
                        richTextBox3.SelectedText = richTextBox2.Lines[i] + "\r\n";
                        _Count++;
                    }
                }
                label3.Text = _Count.ToString() + "条";
            }
        }        private void button4_Click(object sender, EventArgs e)
        {
            SaveFileDialog _SaveFileDialog = new SaveFileDialog();
            _SaveFileDialog.Filter = "*.txt|*.txt";            if (_SaveFileDialog.ShowDialog() == DialogResult.OK)
            {
                System.IO.File.WriteAllLines(_SaveFileDialog.FileName, richTextBox3.Lines);
            }
        }
    }
}

Answer 4

太谢谢了，zgke哥，我刚吃了个饭回来就完工，真高手。
等我调试正常后，zgke哥，加我QQ，顺便给个工行卡号我，好让我汇钱过去。
以后还有许多问题要请教你呢。

Answer 5

zgke哥，不行，按F5调试出现好几个错误，是不是跟环境有关，我用的vs2005+framework2.0的啊。
打包你那个源程序文件发给我，好吗？

Answer 6

看下这些编译错误，能否解释下？
------ 已启动生成: 项目: WindowsApplication2, 配置: Debug Any CPU ------
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Csc.exe /noconfig /nowarn:1701,1702 /errorreport:prompt /warn:4 /define:DEBUG;TRACE /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.Data.dll /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.Deployment.dll /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.dll /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.Windows.Forms.dll /reference:C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\System.Xml.dll /debug+ /debug:full /optimize- /out:obj\Debug\WindowsApplication2.exe /resource:obj\Debug\ReadText.Form1.resources /resource:obj\Debug\WindowsApplication2.Properties.Resources.resources /target:winexe Form1.cs Form1.Designer.cs Program.cs Properties\AssemblyInfo.cs Properties\Resources.Designer.cs Properties\Settings.Designer.cs
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,33): 错误 CS0246: 找不到类型或命名空间名称“Form1”(是否缺少 using 指令或程序集引用?)
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,13): 错误 CS1502: 与“System.Windows.Forms.Application.Run(System.Windows.Forms.Form)”最匹配的重载方法具有一些无效参数
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,29): 错误 CS1503: 参数“1”: 无法从“Form1”转换为“System.Windows.Forms.Form”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(26,17): 错误 CS0103: 当前上下文中不存在名称“tabControl1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(28,17): 错误 CS0103: 当前上下文中不存在名称“label1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(42,17): 错误 CS0103: 当前上下文中不存在名称“tabControl1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(53,51): 错误 CS0103: 当前上下文中不存在名称“comboBox1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(55,25): 错误 CS0103: 当前上下文中不存在名称“comboBox1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(58,17): 错误 CS0103: 当前上下文中不存在名称“label2”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(64,17): 错误 CS0103: 当前上下文中不存在名称“comboBox1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(67,17): 错误 CS0103: 当前上下文中不存在名称“tabControl1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(73,51): 错误 CS0103: 当前上下文中不存在名称“comboBox1”
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Form1.cs(79,17): 错误 CS0103: 当前上下文中不存在名称“label3”编译完成 -- 13 个错误，0 个警告
========== 生成: 0 成功或最新，1 失败，0 被跳过 ==========

Answer 7

控件类型和名称不对应，你的是richTextBox 他用的是comboBox  
    估计你看他程序多会看不通，花100应付一个工作问题，以后有问题再如此？，，，不要急于求成，认真去学段时间，相信这样的问题自己很快就能解决。

Answer 8

我一一添加了一个tabcontrol、3个label、1个combobox，编译时都会出现以下错误：F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,33): 错误 CS0246: 找不到类型或命名空间名称“Form1”(是否缺少 using 指令或程序集引用?)
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,13): 错误 CS1502: 与“System.Windows.Forms.Application.Run(System.Windows.Forms.Form)”最匹配的重载方法具有一些无效参数
F:\My Documents\Visual Studio 2005\Projects\WindowsApplication2\WindowsApplication2\Program.cs(17,29): 错误 CS1503: 参数“1”: 无法从“Form1”转换为“System.Windows.Forms.Form”其中：program.cs中的代码如下：
using System;
using System.Collections.Generic;
using System.Windows.Forms;namespace WindowsApplication2
{
    static class Program
    {
        /// <summary>
        /// 应用程序的主入口点。
        /// </summary>
        [STAThread]
        static void Main()
        {
            Application.EnableVisualStyles();
            Application.SetCompatibleTextRenderingDefault(false);
            Application.Run(new Form1());
        }
    }
}
new Form1()这个东西在form1中还没有定义或者是未声明？该怎么做？

Answer 9

MSDN上的代码我看了许多，发觉跟自己做的，生成的代码很不同一样，就是不明白该怎样声明呀，定义呀之类的代码该怎么样写。

Answer 10

楼主，　建议你把钱拿去买一本Wrox的：　C#入门经典，　等你全看完了，　这些东西你就小菜一碟了.

Answer 11

我给你初学者的代码：运行没有任何问题，只是着急编写代码不规范：
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;namespace csdnpgram
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }        private void button1_Click(object sender, EventArgs e)
        {
            if ( this.openFileDialog1.ShowDialog() ==DialogResult.OK)
            {
                StreamReader sr = new StreamReader(@openFileDialog1.FileName, Encoding.Default);
                richTextBox1.Text = sr.ReadToEnd();           
              
            }
        }        private void button2_Click(object sender, EventArgs e)
        {
            string[] people1, people2;//分割后的记录，分割后的记录
            string formt1 = "\n";//按行分割存储到people1
            string formt2 = " ";//按空格分割存储到people2
            int j=0,t;
            bool flg=false;//重复标志符
            people1=richTextBox1.Text.Split(Convert.ToChar(formt1));
            string[] temp = new string[people1.Length];
            for (int i = 0; i < people1.Length - 1; i++)
            {
                people2 = people1[i].Split(Convert.ToChar(formt2));
                temp[i] = people2[0];
            }
            for (int k = 0; k <temp.Length-1; k++)
            {
                for (int p = k+1; p < temp.Length; p++)
                {
                    t = temp[k].CompareTo(temp[p]);//指定要卡号来判断是否重复
                    if (t == 0)
                    {
                        flg = true;
                    }
                }
                if (!flg)
                {
                    listBox1.Items.Add(people1[k]);
                    j++;
                }
                flg = false;
             }
            textBox1.Text = people1.Length.ToString();
            textBox2.Text = j.ToString();
        }        private void button3_Click(object sender, EventArgs e)
        {
            int j,k=0;
            string str;
            for(int i=0;i<listBox1.Items.Count;i++)
            {
                str = listBox1.Items[i].ToString();
                j = str.IndexOf(textBox4.Text);
                if (j > 0)
                {
                    listBox2.Items.Add(listBox1.Items[i].ToString());
                    k++;
                }
            }
            textBox3.Text=k.ToString();        }
    }
}

Answer 12

Public Class Form1
    Private PTH As String '文本文件路径
    Private S As String
    Private SP() As String
    Private FilterString() As String = {"金卡", "银卡", "VIP卡"} '需要过滤提取的关键词
    Private IsClear As Boolean = False '在每次执行时是否先清空每个RichtextBox内容
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click, Button4.Click
        If IsClear = True Then
            RichTextBox1.Clear()
            RichTextBox2.Clear()
            RichTextBox3.Clear()
        End If
        SP = S.Split(vbCrLf)
        For I As Integer = 0 To SP.Length - 1
            If RichTextBox2.Text.Contains(SP(I)) = False Then
                RichTextBox2.Text &= SP(I)
            End If
        Next
    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsClear = True Then
            RichTextBox1.Clear()
            RichTextBox2.Clear()
            RichTextBox3.Clear()
        End If
        PTH = "c:\users\dylike\desktop\新建文本文档.txt"
        S = My.Computer.FileSystem.ReadAllText(PTH, System.Text.Encoding.Default)
        RichTextBox1.Text = S
        RichTextBox1.Text &= vbCrLf & vbCrLf & "共有：" & S.Split(vbCrLf).Length & "条信息"
    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If IsClear = True Then
            RichTextBox1.Clear()
            RichTextBox2.Clear()
            RichTextBox3.Clear()
        End If
        For I As Integer = 0 To SP.Length - 1
            For J As Integer = 0 To FilterString.Length - 1
                If SP(I).Contains(FilterString(J)) = True Then
                    RichTextBox3.Text &= SP(I)
                End If
            Next
        Next
    End Sub
End Class不会C#，用VB给你写了一个

Answer 13

public class Form1 
{ 
    private string PTH; 
    //文本文件路径 
    private string S; 
    private string[] SP; 
    private string[] FilterString = { "金卡", "银卡", "VIP卡" }; 
    //需要过滤提取的关键词 
    private bool IsClear = false; 
    //在每次执行时是否先清空每个RichtextBox内容 
    
//此段写在Button1_Click事件中
    { 
        if (IsClear == true) { 
            RichTextBox1.Clear(); 
            RichTextBox2.Clear(); 
            RichTextBox3.Clear(); 
        } 
        SP = S.Split(Constants.vbCrLf); 
        for (int I = 0; I <= SP.Length - 1; I++) { 
            if (RichTextBox2.Text.Contains(SP(I)) == false) { 
                RichTextBox2.Text += SP(I); 
            } 
        } 
    } 
    
 
//此段写在Button2_Click事件中
    { 
        if (IsClear == true) { 
            RichTextBox1.Clear(); 
            RichTextBox2.Clear(); 
            RichTextBox3.Clear(); 
        } 
        PTH = "c:\\users\\dylike\\desktop\\新建文本文档.txt"; 
        S = My.Computer.FileSystem.ReadAllText(PTH, System.Text.Encoding.Default); 
        RichTextBox1.Text = S; 
        RichTextBox1.Text += Constants.vbCrLf + Constants.vbCrLf + "共有：" + S.Split(Constants.vbCrLf).Length + "条信息"; 
    } 
    
//此段写在Button3_Click事件中
    { 
        if (IsClear == true) { 
            RichTextBox1.Clear(); 
            RichTextBox2.Clear(); 
            RichTextBox3.Clear(); 
        } 
        for (int I = 0; I <= SP.Length - 1; I++) { 
            for (int J = 0; J <= FilterString.Length - 1; J++) { 
                if (SP(I).Contains(FilterString(J)) == true) { 
                    RichTextBox3.Text += SP(I); 
                } 
            } 
        } 
    } 
} 
以上是在网上转成C#的

Answer 14

刚想起来忘了写保存内容了。不过也就是RichTextBox1.Save（路径）。自己添加一下即可。

Answer 15

我不知道我的分有190，当初发帖求助时没有修改点数，我不是吝惜那点分。实在是急，忘了加分。
最先给代码的zgke得10分，xuangege和dylike各5分。其他为0.