vb.net遍历指定目录下的所有子目录和文件（栈法，非递归，效率非常高）

liuxxxxbc 2013-05-17 10:37:26

程序采用栈法查看指定目录下和所有子目录下的文件，非递归，运行速度非常快，将所有文件加入到combobox框内。要求一个windows窗口，一个button，一个combobox组合框。本程序是在vb2008下调试运行成功。
窗口代码如下：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim vbFilePath As String = "C:\windows\"

        Main(vbFilePath)

    End Sub

模块代码如下

Module 遍历目录

    Sub Main(ByVal vbFilePath As String)

        Dim Stack(0) As String, m, i, n, p As Integer, muluming(0) As String, wenjianming(0) As String

        Stack(0) = vbFilePath

        m = 1

        Do While m > 0

            Try

                If My.Computer.FileSystem.DirectoryExists(Stack(m - 1)) Then

                    列目录(Stack(m - 1), muluming, n)

                    列文件(Stack(m - 1), wenjianming, p)

                    m -= 1

                    ReDim Preserve Stack(m + n - 1)

                    For i = 0 To n - 1

                        Stack(m) = muluming(i)

                        m += 1

                    Next

                    For i = 0 To p - 1

                        Form1.ComboBox1.Items.Add(wenjianming(i))

                    Next

                End If

            Catch ex As Exception

            End Try

        Loop

    End Sub

    Private Sub 列目录(ByVal vbFilePath As String, ByRef muluming() As String, ByRef n As Integer)

        n = 0

        If My.Computer.FileSystem.DirectoryExists(vbFilePath) Then

            '       My.Computer.FileSystem.GetDirectories(vbFilePath)

            Dim i As Integer = 0

            ReDim muluming(i)

            For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(vbFilePath)

                ReDim Preserve muluming(i)

                muluming(i) = foundDirectory

                n += 1

                i += 1

            Next

        End If

    End Sub

    Private Sub 列文件(ByVal vbFilePath As String, ByRef wenjianming() As String, ByRef n As Integer)

        n = 0

        If My.Computer.FileSystem.DirectoryExists(vbFilePath) Then

            Dim i As Integer = 0

            ReDim wenjianming(i)

            For Each foundfile In My.Computer.FileSystem.GetFiles(vbFilePath, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名

                ReDim Preserve wenjianming(i)

                wenjianming(i) = foundfile

                n += 1

                i += 1

            Next

        End If

    End Sub



End Module

...全文

4587 66 打赏收藏举报

写回复

66 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

lishengyu 2015-02-10

秀才跟兵的故事

打赏
举报

回复赞

lishengyu 2015-02-10

打赏
举报

回复赞

chenkejun 2015-01-19

评论挺有意思。

打赏
举报

回复赞

MeThee 2013-10-14

引用 62 楼 zhao4zhong1 的回复:

请记住，能用shell命令获取文件、文件夹信息或者操作文件、文件夹最好用shell命令获取或者操作，而不要用各种API获取或者操作，因为当遇到非法文件夹名或非法文件名或非法文件长度、非法文件日期、压缩文件、链接文件、稀疏文件……等各种意料之外的情况时，API会处理的不全面或陷入死循环，而shell命令不会。

好像明白了什么。难怪现在网上很多的VB遍历算法去测试总是会漏掉文件。 dir() fso的都会漏文件。

打赏
举报

回复赞

赵4老师 2013-05-23

shell "dir /b /a-d c:\*.* >d:\allfile.txt",vbHide '读文件d:\allfile.txt的内容即C:\下所有文件的名字 shell "dir /b /s /a-d c:\*.* >d:\allfiles.txt",vbHide '读文件d:\allfiles.txt的内容即C:\下所有文件的名字(包含子目录) shell "dir /b /ad c:\*.* >d:\alldirs.txt",vbHide '读文件d:\alldirs.txt的内容即C:\下所有子目录的名字请记住，能用shell命令获取文件、文件夹信息或者操作文件、文件夹最好用shell命令获取或者操作，而不要用各种API获取或者操作，因为当遇到非法文件夹名或非法文件名或非法文件长度、非法文件日期、压缩文件、链接文件、稀疏文件……等各种意料之外的情况时，API会处理的不全面或陷入死循环，而shell命令不会。

打赏
举报

回复赞

e4snake 2013-05-22

现在网上很多资料都是半桶水，别全信。看了自己好好测试一下。

打赏
举报

回复赞

clear_zero 2013-05-21

引用 53 楼 liuxxxxbc 的回复:

看到大家对这个话题还挺感兴趣，我就把修改后的代码发上来，让大家品评一下，这次我做了两版本的递归和栈的，我实际测试了一下，执行效率没有的太大差异。递归代码编辑简洁明了，运算时实际上是以空间换时间的，如果内存空间不够的话，时间上将明显延长。现在计算机内存明显增大，这个也已经不是问题了，我之所以提出递归慢是因为这个程序的影响，（Public Class Form1 Private vbFilePath As String = "c:\windows\" Private Sub TransFiles(ByVal strDirect As String) If Not (strDirect Is Nothing) Then 'TextBox1.Text = TextBox1.Text + "**********************************" + vbCrLf ' TextBox1.Text = TextBox1.Text + strDirect + vbCrLf Dim mFileInfo As System.IO.FileInfo Dim mDir As System.IO.DirectoryInfo Dim mDirInfo As New System.IO.DirectoryInfo(strDirect) For Each mFileInfo In mDirInfo.GetFiles() ComboBox1.Items.Add(mFileInfo.FullName) ' TextBox1.Text = TextBox1.Text + mFileInfo.FullName + vbCrLf '你可以修改代码添加到你的数组中 Next For Each mDir In mDirInfo.GetDirectories TransFiles(mDir.FullName) Next End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim time1, time2 As Date time1 = Now ComboBox1.Items.Clear() TransFiles(vbFilePath) time2 = Now Label1.Text = (time2 - time1).ToString End Sub End Class ）这段程序是网上下载的，我只把可运行的内容改到了，能在我的电脑上运行就行了。其他没动，结果这个软件运行速度惊人的慢！就有了我后来自己编写的上面的那段程序。后来经过网上的讨论，我又把程序进行了修改，现在程序有两种方法可以运行，一种是栈法，一种是递归方法，我把程序加了计时，运行结果两者相差不多。但是前面的代码（也就是网上下载的代码）是递归运算，速度相当慢。有兴趣的朋友可以试试。下面的程序是我改进后的程序递归和栈法都可以运行，效果相差不多。 Private Sub GetFolders(ByVal path As String) '递归 Dim folders(0) As String, i As Integer, wenjian As String i = 0 folders(0) = path wenjian = folders(0) For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(wenjian) ReDim Preserve folders(i) folders(i) = foundDirectory GetFolders(folders(i)) i += 1 Next GetFiles1(wenjian) End Sub Private Sub GetFiles1(ByVal path As String) For Each foundfile In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名 ComboBox1.Items.Add(foundfile) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim time1, time2 As Date Dim vbFilePath As String = TextBox1.Text time1 = Now ComboBox1.Items.Clear() GetFolders(vbFilePath) time2 = Now Label1.Text = (time2 - time1).ToString Label3.Text = ComboBox1.Items.Count End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim time1, time2 As Date Dim vbFilePath As String = TextBox1.Text time1 = Now ComboBox2.Items.Clear() Main(vbFilePath) time2 = Now Label2.Text = (time2 - time1).ToString Label4.Text = ComboBox2.Items.Count End Sub Sub Main(ByVal vbFilePath As String) '栈法 Dim Stack(10000) As String, m, n As Integer, wenjian As String Stack(0) = vbFilePath m = 1 Do While m > 0 n = 0 wenjian = Stack(m - 1) GetFiles2(wenjian) For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(wenjian) If m + n - 1 > Stack.Length Then ReDim Preserve Stack(m + n + 10000) End If Stack(m + n - 1) = foundDirectory n += 1 Next m = m + n - 1 Loop End Sub Private Sub GetFiles2(ByVal path As String) For Each foundfile In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名 ComboBox2.Items.Add(foundfile) Next End Sub

lz说的运行结果相差不多是什么意思？两个运行结果肯定要是相同的阿，如果不相同就没有比较继续比较时间了你写的这个递归就是最普遍的用法，而且你查的路径很简单，怎么会出现特别慢的情况... 就你查的这个路径在我的机器两种方法没有区别的，尤其是用now来做时间差比较来说后面的代码看起来不整齐而且开大数组，或者多次redim 除去技术讨论不提，实际应用中前面的递归或者直接用库函数比较好

打赏
举报

回复赞

liuxxxxbc 2013-05-21

引用 54 楼 hpygzhx520 的回复:

不管什么法，这样的写法，我个人是不喜欢的，讨论递归是一回事情，如果谈实际运用，为什么不用Dim finfo() As System.IO.FileInfo = dir.GetFiles("*", IO.SearchOption.AllDirectories)呢？我还是更相信微软的技术。

Dim Stack(10000) As String 这个是为了检测，频繁使用ReDim Preserve Stack是否对性能有影响，而设定的。原先都是Dim Stack(0) As String这个格式，结果显示效果没有太大区别，对整体性能没有区别。

打赏
举报

回复赞

Tiger_Zhao 2013-05-21

遍历目录的瓶颈在磁盘操作上，只要不是太烂的代码，对性能的影响不大。

打赏
举报

回复赞

hpygzhx520 2013-05-21

不管什么法，Dim Stack(10000) As String这样的写法，我个人是不喜欢的，讨论递归是一回事情，如果谈实际运用，为什么不用Dim finfo() As System.IO.FileInfo = dir.GetFiles("*", IO.SearchOption.AllDirectories)呢？我还是更相信微软的技术。

打赏
举报

回复赞

三楼の郎 2013-05-21

孔子的一个弟子在扫大街，过来一个人问他：“阁下何人？”孔门弟子道：“我乃孔门弟子！”那人道：“孔夫子博学也！有个问题想请教。”孔门弟子道：“请讲。”那人问：“一年之中有几季？”孔门弟子不假思索：“四季！”那人摇头道：“非也，一年只有三季！”二人遂起争执。孔子出，那人问孔子：“一年有几季？”孔子道：“三季。”那人遂大笑满意而去。弟子不解，问孔子，孔子说：“你没看见那人通体绿色吗？他是只蚱蜢。蚱蜢是夏虫，春天生，秋天死，从未经历过冬季，你跟他讲一年有四季有什么用呢？费尽口舌也不能让他信服啊！” 圣贤的智慧就在这里。

不要喷我，我只是打个酱油路过。

打赏
举报

回复赞

liuxxxxbc 2013-05-21

看到大家对这个话题还挺感兴趣，我就把修改后的代码发上来，让大家品评一下，这次我做了两版本的递归和栈的，我实际测试了一下，执行效率没有的太大差异。递归代码编辑简洁明了，运算时实际上是以空间换时间的，如果内存空间不够的话，时间上将明显延长。现在计算机内存明显增大，这个也已经不是问题了，我之所以提出递归慢是因为这个程序的影响，（Public Class Form1 Private vbFilePath As String = "c:\windows\" Private Sub TransFiles(ByVal strDirect As String) If Not (strDirect Is Nothing) Then 'TextBox1.Text = TextBox1.Text + "**********************************" + vbCrLf ' TextBox1.Text = TextBox1.Text + strDirect + vbCrLf Dim mFileInfo As System.IO.FileInfo Dim mDir As System.IO.DirectoryInfo Dim mDirInfo As New System.IO.DirectoryInfo(strDirect) For Each mFileInfo In mDirInfo.GetFiles() ComboBox1.Items.Add(mFileInfo.FullName) ' TextBox1.Text = TextBox1.Text + mFileInfo.FullName + vbCrLf '你可以修改代码添加到你的数组中 Next For Each mDir In mDirInfo.GetDirectories TransFiles(mDir.FullName) Next End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim time1, time2 As Date time1 = Now ComboBox1.Items.Clear() TransFiles(vbFilePath) time2 = Now Label1.Text = (time2 - time1).ToString End Sub End Class ）这段程序是网上下载的，我只把可运行的内容改到了，能在我的电脑上运行就行了。其他没动，结果这个软件运行速度惊人的慢！就有了我后来自己编写的上面的那段程序。后来经过网上的讨论，我又把程序进行了修改，现在程序有两种方法可以运行，一种是栈法，一种是递归方法，我把程序加了计时，运行结果两者相差不多。但是前面的代码（也就是网上下载的代码）是递归运算，速度相当慢。有兴趣的朋友可以试试。下面的程序是我改进后的程序递归和栈法都可以运行，效果相差不多。 Private Sub GetFolders(ByVal path As String) '递归 Dim folders(0) As String, i As Integer, wenjian As String i = 0 folders(0) = path wenjian = folders(0) For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(wenjian) ReDim Preserve folders(i) folders(i) = foundDirectory GetFolders(folders(i)) i += 1 Next GetFiles1(wenjian) End Sub Private Sub GetFiles1(ByVal path As String) For Each foundfile In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名 ComboBox1.Items.Add(foundfile) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim time1, time2 As Date Dim vbFilePath As String = TextBox1.Text time1 = Now ComboBox1.Items.Clear() GetFolders(vbFilePath) time2 = Now Label1.Text = (time2 - time1).ToString Label3.Text = ComboBox1.Items.Count End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim time1, time2 As Date Dim vbFilePath As String = TextBox1.Text time1 = Now ComboBox2.Items.Clear() Main(vbFilePath) time2 = Now Label2.Text = (time2 - time1).ToString Label4.Text = ComboBox2.Items.Count End Sub Sub Main(ByVal vbFilePath As String) '栈法 Dim Stack(10000) As String, m, n As Integer, wenjian As String Stack(0) = vbFilePath m = 1 Do While m > 0 n = 0 wenjian = Stack(m - 1) GetFiles2(wenjian) For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(wenjian) If m + n - 1 > Stack.Length Then ReDim Preserve Stack(m + n + 10000) End If Stack(m + n - 1) = foundDirectory n += 1 Next m = m + n - 1 Loop End Sub Private Sub GetFiles2(ByVal path As String) For Each foundfile In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名 ComboBox2.Items.Add(foundfile) Next End Sub

打赏
举报

回复赞

threenewbee 2013-05-21

引用 52 楼 itakeblue 的回复:

我来说两句啊。我对这个技术不懂啊，不过除去技术方面的讨论，caozhy版主，你看看你说的，一会“因为你念书太少，才把这些基本概念看得多么高深。”“又是一个没上过学，被培训班和网络误导的少年。 ”。。。你怎么从别人一两句话就知道别人念书少？就你念的书多是吗？从你第一个回复“莫名其妙”就可以看出很有中国技术“高手”的味道，国外象stackoverflow上高手多了去了，会有几个象你这样说话嘲讽对方的？人家也只是热心将自己的一些发现和大家分享。身为版主不但在技术上要过人，修养更是。

没有泛之四海而皆准的道理，你说“我对这个技术不懂啊，不过除去技术方面的讨论……”这就是技术讨论，就是对这件事情来说，怎么能脱离这个语境呢？你提到了stackoverflow，你真的了解stackoverflow的规则么？你知道stackoverflow根本就不像csdn什么帖子都可以发的么？

打赏
举报

回复赞

threenewbee 2013-05-21

引用 52 楼 itakeblue 的回复:

我来说两句啊。我对这个技术不懂啊，不过除去技术方面的讨论，caozhy版主，你看看你说的，一会“因为你念书太少，才把这些基本概念看得多么高深。”“又是一个没上过学，被培训班和网络误导的少年。 ”。。。你怎么从别人一两句话就知道别人念书少？就你念的书多是吗？从你第一个回复“莫名其妙”就可以看出很有中国技术“高手”的味道，国外象stackoverflow上高手多了去了，会有几个象你这样说话嘲讽对方的？人家也只是热心将自己的一些发现和大家分享。身为版主不但在技术上要过人，修养更是。

我的意思很简单，我不是不鼓励“创新思考”或者“通过实践去验证真理”，但是对于那些再基本不过的常识，在基础知识都没有学会的情况下，去“创新思考”或者“通过实践去验证真理”是盲目和无谓的。我是很反对民科这种社会现象的，媒体总喜欢鼓动什么中学生发明了什么，农民自己造飞机，小学生挑战什么数学难题，相对论即将被改写之类的，没错，从新闻学的角度看，这些东西确实有新闻价值，但是从科学的角度来说，这纯粹是误导人，是什么大炼钢铁、超声波发热之类运动的遗风。借用一句话，一些人的问题就是书念得太少，想法太多。

打赏
举报

回复赞

itakeblue 2013-05-21

我来说两句啊。我对这个技术不懂啊，不过除去技术方面的讨论，caozhy版主，你看看你说的，一会“因为你念书太少，才把这些基本概念看得多么高深。”“又是一个没上过学，被培训班和网络误导的少年。 ”。。。你怎么从别人一两句话就知道别人念书少？就你念的书多是吗？从你第一个回复“莫名其妙”就可以看出很有中国技术“高手”的味道，国外象stackoverflow上高手多了去了，会有几个象你这样说话嘲讽对方的？人家也只是热心将自己的一些发现和大家分享。身为版主不但在技术上要过人，修养更是。

打赏
举报

回复赞

clear_zero 2013-05-20

引用 44 楼 hpygzhx520 的回复:

实验检验一下即可，何必喋喋不休，模块就用楼主那坨代码： Public Class Form1 Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim timeBegin As Long = GetTickCount() Dim vbFilePath As String = "C:\Windows\SysWOW64" Main(vbFilePath) Me.Text = (GetTickCount() - timeBegin).ToString() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim timeBegin As Long = GetTickCount() Dim dir As New System.IO.DirectoryInfo("C:\Windows\SysWOW64") Dim finfo() As System.IO.FileInfo = dir.GetFiles("*", IO.SearchOption.AllDirectories) For Each fChild As System.IO.FileInfo In finfo ComboBox1.Items.Add(fChild.ToString()) Next Me.Text = (GetTickCount() - timeBegin).ToString() End Sub End Class 编译Release测试：在我电脑上，Button1_Click不会低于500，大约530、 Button2_Click不会高于400.大约365

你说是不是.net对于库函数作了优化呢？

打赏
举报

回复赞

三楼の郎 2013-05-20

打赏
举报

回复赞

hpygzhx520 2013-05-20

实验检验一下即可，何必喋喋不休，模块就用楼主那坨代码： Public Class Form1 Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim timeBegin As Long = GetTickCount() Dim vbFilePath As String = "C:\Windows\SysWOW64" Main(vbFilePath) Me.Text = (GetTickCount() - timeBegin).ToString() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim timeBegin As Long = GetTickCount() Dim dir As New System.IO.DirectoryInfo("C:\Windows\SysWOW64") Dim finfo() As System.IO.FileInfo = dir.GetFiles("*", IO.SearchOption.AllDirectories) For Each fChild As System.IO.FileInfo In finfo ComboBox1.Items.Add(fChild.ToString()) Next Me.Text = (GetTickCount() - timeBegin).ToString() End Sub End Class 编译Release测试：在我电脑上，Button1_Click不会低于500，大约530、 Button2_Click不会高于400.大约365

打赏
举报

回复赞

threenewbee 2013-05-20

引用 41 楼 liuxxxxbc 的回复:

[quote=引用 36 楼 caozhy 的回复:] [quote=引用 35 楼 liuxxxxbc 的回复:] [quote=引用 34 楼 caozhy 的回复:] [quote=引用 33 楼 liuxxxxbc 的回复:] 这个程序的代码有很多地方，是可以更改的，编这个程序的的目的，是要列出指定目录下的文件，可以指定用代码对文件进行操作。之前在网上找了一个递归的代码运行起来好慢，才想到了用栈的方法，不过我这个栈是用数组替代的，方法是用栈的。没想到会得到这么多网友的支持，谢谢了。

引用 33 楼 liuxxxxbc 的回复:

这个程序的代码有很多地方，是可以更改的，编这个程序的的目的，是要列出指定目录下的文件，可以指定用代码对文件进行操作。之前在网上找了一个递归的代码运行起来好慢，才想到了用栈的方法，不过我这个栈是用数组替代的，方法是用栈的。没想到会得到这么多网友的支持，谢谢了。

引用 33 楼 liuxxxxbc 的回复:

这个程序的代码有很多地方，是可以更改的，编这个程序的的目的，是要列出指定目录下的文件，可以指定用代码对文件进行操作。之前在网上找了一个递归的代码运行起来好慢，才想到了用栈的方法，不过我这个栈是用数组替代的，方法是用栈的。没想到会得到这么多网友的支持，谢谢了。

引用 33 楼 liuxxxxbc 的回复:

这个程序的代码有很多地方，是可以更改的，编这个程序的的目的，是要列出指定目录下的文件，可以指定用代码对文件进行操作。之前在网上找了一个递归的代码运行起来好慢，才想到了用栈的方法，不过我这个栈是用数组替代的，方法是用栈的。没想到会得到这么多网友的支持，谢谢了。

如果你想成为一个程序员，应该学会编写代码。记住，代码是人写出来的，所以应该处处可以修改，而不是像填空题那样“有很多地方，是可以更改的”，搞清楚原理，而不是随便找一个代码，并且“感觉很慢”，不能靠猜测，计算机科学是精密和严谨的，不是像国学大师和算命的那样，是个大概和模糊的东西。最后，你根本没有找到最佳实践，.NET FCL比起VB6带的支零破碎的库来说，完善了许多，我说了，只要1行代码就可以解决你这个问题。[/quote] 这里是论坛，不是放的地方，我改也可以不改也可以，懂就是懂，不懂就是不懂，不像有些人，不懂装懂，有意思吗。还当狗屁斑竹，羞羞羞死得了。vb.net都没用过，有什么资格品头论足。还是回家先练练“基本功”。把基础打牢点。如果哪不会，我可以教你。别上外面乱说，让人笑掉大牙。[/quote] 好了，我看你低劣的表演也该收场了吧。[/quote] 我看你的表演也该收场了。什么都不懂，赶快回家把基本功补习一下再来吧！哈哈。栈和递归是编程的最基本算法。你连这个都不懂，还在这个版块当斑竹，太笑话了。哈哈！顺便问一句，你是什么学校毕业的吗？原本先把改写的程序发一下，让大家品品。我看在斑竹的份上，还是算了吧。[/quote] 呵呵，你以为你耍泼的技术很高明么？

打赏
举报

回复赞

liuxxxxbc 2013-05-20

引用 40 楼 caozhy 的回复:

[quote=引用 39 楼 liuxxxxbc 的回复:] [quote=引用 37 楼 caozhy 的回复:] 你除了仗着使用一个虚拟的id在这里撒泼耍赖以外，你还能做什么。我想现实中的你恐怕不敢如此放肆地秀你的下限吧。

你能不能闭嘴，有本事，你先把基本理论好好学学。别耍无赖好吗！着不需要你说话！[/quote] 那你继续表演。[/quote] 我不用表演，这个舞台还是交给你吧。你愿意说啥就说啥吧。我想看到你长了本事的斑竹，不想看到一个无知的斑竹。谢谢你的宝地。再见了！

打赏
举报

回复赞

加载更多回复（46）