如何将文本随机混淆？

ichenghua 2007-12-27 09:21:09
我的一个目录下，有100个.txt文本，我希望将他们的内容混合。


我希望随机获取一个文本，中的任意一行数据，然后把它粘贴到另一个随机文本的最后一行。

大概步骤是这样：
-------------------------------------------------------

1、随机获取目录中的一个文本,如：5.txt
5.txt内容如下：“
13707020001
13707020002
13707020003
13707020004
13707020005
”

2、然后再随机获取一行的内容，如，获取第3行的内容：“13707020003”
然后把5.txt的“13707020003”删除，保存。
然后5.txt就变成这样了:“
13707020001
13707020002
13707020004
13707020005
”

3、然后再随机选择一个文本，如选择36.txt，把刚才获取到的数据(“13707020003”)粘贴到36.txt的最后一行。

4、按上面的规律重复执行1000遍，使这个目录下的文本全部混淆。



在这里谢谢各位了。
...全文
377 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
vbman2003 2007-12-27
  • 打赏
  • 举报
 回复
只混淆？不要恢复？
cike_1111 2007-12-27
  • 打赏
  • 举报
 回复
大大们 有更简便的代码就贴出来 我们大家一起学习!

我的这个例题还是有得改进的!
cike_1111 2007-12-27
  • 打赏
  • 举报
 回复
材料有错

多加2个 list 控件

再说一次做这个例题的步骤

>>材料:1*file1
1*command1
1*list1
1*llist2
>>设置 file1的显示属性为 *.txt

>>引用 Microsoft Scripting Runtime
>> 复制代码到代码窗口
>> 启动运行 点command1
>> 等file1 不闪屏 就可以打开 c:\liti文件夹查看成果了


cike_1111 2007-12-27
  • 打赏
  • 举报
 回复
哇靠!
思路不是很清晰了么! 还需要具体代码呀....
我忍~...

记得把分(全部)给我啊~ [我现在在和某某比赛看谁1个月内得到的技术分多..^_^]

我的思路是:用一个file控件 指向你指定的目录后 设置该控件只显示文本文档后执行循环 就循环file控件中的TXT文本

材料:1*file控件
1*command控件
制作过程:
1.放入材料
2.设置file控件的显示属性为txt
3.放入代码:



'我这里引用了 Microsoft Scripting Runtime 为的是能创建 c:\liti 文件夹

'你照我例题做的要记得引用 明白思路后做你自己题目可以忽略这一步

Dim sfo As New FileSystemObject   '声明sfo（好像叫这个sof 又好象是这个 管它呢 反正只是一个变量名）



Private Sub 生成txt() '该过程生成txt 就是你说的那100个 txt 文件

For i = 1 To 100

    For j = 1 To 50

        a = a & i & "文本内容" & j & vbCrLf

    Next j

    Open "c:\liti\" & Right("000" & i, 3) & ".txt" For Output As #1

    Print #1, a

    Close #1

    a = ""

Next i

    

End Sub



Private Sub Command1_Click()

Dim 随机文件名 As String

Randomize

随机文件名 = "c:\liti\" & File1.List(Int(Rnd * (File1.ListCount)))

For i = 1 To 1000

    Open 随机文件名 For Input As #1  '先打开随机获取的txt 把数据放到list中

        Do While EOF(1) = False

        Line Input #1, a

        If a <> "" Then List1.AddItem a

        Loop

    Close #1

    

    sfo.DeleteFile 随机文件名       ' 打开获取数据后删除这个文件

    变量1 = Int(Rnd * (List1.ListCount))    '获取随机一项目号

    变量2 = List1.List(变量1)               '变量存储它

    List1.RemoveItem 变量1                  '删除这个项目

    

    Open 随机文件名 For Output As #1       '前面删了再建一个同样名字的文本文件

        For j = 0 To List1.ListCount - 1        '循环把list内容改为一个变量存储的数据

            ss = ss & List1.List(j) & vbCrLf

        Next j

        Print #1, ss                       '向建立的文本里写入修改后的数据

        ss = ""

    Close #1

    File1.Refresh

    随机文件名 = "c:\liti\" & File1.List(Int(Rnd * (File1.ListCount)))

    Open 随机文件名 For Input As #1

    Do While EOF(1) = False

    Line Input #1, a

    If a <> "" Then List2.AddItem a

    Loop

    Close #1

    sfo.DeleteFile 随机文件名

    List2.AddItem 变量2

    Open 随机文件名 For Output As #1

        For j = 0 To List2.ListCount - 1        '循环把list内容改为一个变量存储的数据

            ss = ss & List2.List(j) & vbCrLf

        Next j

        Print #1, ss                       '向建立的文本里写入修改后的数据

        ss = ""

    Close #1

    File1.Refresh

  



    List1.Clear

    List2.Clear

Next i

End Sub



Private Sub Form_Load()

If sfo.FolderExists("c:\liti") = False Then  '若没有这个文件夹

sfo.CreateFolder "c:\liti"                    '就生成这个文件夹

Call 生成txt                                  '向里面写入100个txt

End If

File1.Path = "c:\liti"                        '设置指向的目录

List1.Visible = False

List2.Visible = False

End Sub


我随机打开了一个txt 文本 内容如下:
10文本内容1
10文本内容2
10文本内容3
10文本内容4
10文本内容5
10文本内容6
10文本内容7
10文本内容8
10文本内容9
10文本内容11
10文本内容13
10文本内容14
10文本内容15
10文本内容16
10文本内容17
10文本内容19
10文本内容20
10文本内容23
10文本内容24
10文本内容25
10文本内容26
10文本内容27
10文本内容29
10文本内容30
10文本内容32
10文本内容33
10文本内容34
10文本内容35
10文本内容36
10文本内容38
10文本内容39
10文本内容40
10文本内容41
10文本内容42
10文本内容43
10文本内容44
10文本内容46
10文本内容48
10文本内容49
85文本内容38
62文本内容9
95文本内容25
53文本内容14
44文本内容4
67文本内容12
73文本内容6
65文本内容24
4文本内容27
38文本内容16
83文本内容18

========发现原问被内容有几项目没了 而后面多出N个不是本文本的内容 恭喜我成功了~~

ichenghua 2007-12-27
  • 打赏
  • 举报
 回复
为何我做的会出现：
运行时错误'53'
文件未找到

是否只需要一个command控件和list1控件就可以了？
of123 2007-12-27
  • 打赏
  • 举报
 回复
改改思路：
把所有的记录都读出来，然后随机选取 n 行，写入一个文件。

这里假定记录总数不超过 Integer 极限，并使用 ListBox:


Private Sub Command1_Click()

    Dim i As Integer, j As Integer, n(1 To 100) As Integer

    Dim strTmp As String, r As Integer



    'Read all lines of all files

    For i = 1 To 100

        Open "c:\" & CStr(i) & ".txt" For Input As #1

        Do Until EOF(1)

            Line Input #1, strTmp

            List1.AddItem strTmp

            n(i) = n(i) + 1

        Loop

        Close #1

    Next i



    Randomize

    For i = 1 To 100

        Open "c:\" & CStr(i) & "New.txt" For Output As #1

        For j = 1 To n(i)

            r = Rnd * List1.ListCount - 1

            Print #1, List1.List(r)

            List1.RemoveItem r

        Next j

        Close #1

    Next i

End Sub

ichenghua 2007-12-27
  • 打赏
  • 举报
 回复
哈哈，恩，找到了，

虽然分数不多，但还是真心感谢cike_1111。
cike_1111 2007-12-27
  • 打赏
  • 举报
 回复
怎么加分!!

我问的问题一般都很奇怪 没有人回答好过! 现在又改版了 我想

应该是 管理帖子 这个吧!

....
ichenghua 2007-12-27
  • 打赏
  • 举报
 回复
再顶下，cike_1111真好，

我先睡觉去了，晚上再来看这贴。zZZZ
ichenghua 2007-12-27
  • 打赏
  • 举报
 回复
顺便问下如何给分呀？

我比较少来CSDN，。。。。这里的规矩都不大清楚。--!!
（以后会常来这里的。^_^）
ichenghua 2007-12-27
  • 打赏
  • 举报
 回复
娃哈哈，，感谢cike_1111，

由于我是VB白痴，从来没有接触过VB，
今天第一次使用VB6，按照，cike_1111的方法，一步一步来，终于完成了。


好高兴，我本想用VBS脚本来做的，结果刚写到一半，来论坛看，发现cike_1111回帖的，

解决了我的难题，再次感谢。^_^


下面是我写到一半的VBS，由于不知道如何删除文本内，指定行的内容（如：不知道如何删除文本里第4行的内容。），所以卡住了。

randomize

set fso=createobject("scripting.filesystemobject")

set a=createobject("scripting.dictionary")



i=int(rnd*100)

i2=i+1



set file=fso.opentextfile(""&i&".txt")

do while file.atendofstream<>true

m=m+1

a.add m,file.readline

loop

file.close



h=int(rnd*m)

msgbox "" & a(h) ,4096,""







xieru=""&a(h)&""

set file1=fso.opentextfile(""&i2&".txt",8,true)

file1.writeline(xieru)

file1.close


机器学习KNN与kmeans算法易混淆？一文来帮你分清楚!
本文对比分析了KNN和K-means两种机器学习算法。KNN是有监督分类算法，通过计算样本与训练数据的距离进行分类；K-means是无监督聚类算法，通过迭代优化聚类中心实现数据分组。文章从基本原理、算法步骤、代码实现和应用场景等方面进行了详细对比，并提供了Python实现代码。关键区别在于：KNN需要标签数据进行分类预测，适用于中小规模数据；K-means无需标签，适合大规模数据聚类分析。理解两者的差异有助于在实际项目中合理选择算法。
随机森林和SVM的分类，混淆矩阵绘制
基于matlab技术，探索了随机森林和svm的分类方法 图 坐标代表了原始数据的特征信息 右边代表了混淆矩阵的信息 这个代表了随机森林的预测值和真实的数值 SVM的预测结果如下 右图代表了每个样本对应的误差大小 左图代表了真实值和SVM与预测值的数据 图 SVM得到的混淆矩阵 图 混淆矩阵绘制的主要程序 具体源程序见： 如有侵权，请联系作者删除。 ...
Python 反爬虫——文本混淆反爬虫
文中案例参考 GitHub项目 4 文本混淆反爬虫 4.1 图片伪装为文字反爬虫 有些文字内容实际是图片伪装的 提取图片的内容(图片请求响应结果res.content就是图片的字节数据，可以直接write为图片对象，也可以打开为图片对象，看案例) 图片对象使用光学字符识别技术(pytesseract库)从图片中提取文字 PyTesseract缺点：只能识别出一些清晰工整的图像中的文字，扭曲的文字或者有其它颜色图片干扰信息时候识别不准确 参考案例001(02文件夹中) 4.2 CSS偏移反爬虫 一般用于
文章防洗稿隐蔽混淆软件
并且OCR的准确率不是100%的，OCR之后的文章格式也是混乱的，这也给了抄袭者增加了额外的错误成分。人眼看不到，但是机器会读取到，如果别人是用AI工具来对你的文章进行洗稿，就会发现这是一堆乱码。当文档泄露出去时，若文档里还有这个隐形水印，你就能非常轻松的追踪到是哪一个人的版本被泄露了。把你要混淆的文本粘贴到第一个文本框，然后点击下方的 【混淆文本并自动复制最后结果】按钮即可。我只能说，技术不是万能的，至少这个东西可以让抄袭者的成本提高了很多，如果你的文章经常被人洗稿搬运，那么这个小工具或许可以帮到你。
【ArcGIS初学】产生随机点计算混淆矩阵
分别用以对应真实值和预测值，预测值也就是分类结果），开始编辑后对随机点位置的类别进行人工判读并填写，完成后停止编辑并保存。（如果数据类别分布严重失衡，混淆矩阵可能会受到数据分布偏差的强烈影响，通过随机生成样本可以更均匀地评估每个类别的表现）。某类中正确分类的像元数除以参考数据中该类的像元数(列方向)，又称制图精度。点击：Spatial Analyst-影像分割和分类-计算混淆矩阵，其中输入的精度评估点就是创建的随机点。某类中正确分类的像元数除以分类数据中该类的像元数(行方向)，又称用户精度。
控件

1,453

社区成员

41,351

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章