asp随机读取txt文本5行显示 现有 1.asp和1.txt，1.txt有N行的内容随机读取5行，没读取一行用逗号隔开

只能先将1txt的N行内容全部读出存储到数据组中

然后产生随机数，通过随机数读取数组中的内容，显示出来

这样方法有些影响服务器性能

下面产生随机生成1到100之间的5个数据

你要更改随机数上下限的值，100代表上限最大值，1代表下限最小值

<%

dim temp

Randomize()

for i=0 to 4

temp(i)=Int((100 - 1+ 1) Rnd + 1)

responsewrite temp(i)

next

%>

首先将文件读入数组

$column1s = file('txt1txt');

$column2s = file('txt2txt');

$col2num = count($column2s);

foreach($column1s as $value){

$key = rand(0,$col2num);//随机2字段

mysql_query("insert into table1(`col1`,`col2`) values($value, $column2s[$key])");

}

#include <stdioh>

#include <stringh>

void main()

{

int i,n;

char str[500];

FILE fp;

printf("请输入需要读取第几行数据\n");

scanf("%d", &n);

if((fp=fopen("testtxt","rt"))==NULL) / 假设在程序目录下，文件名为testtxt /

{

printf("cannot open file\n");

return;

}

for(i=1;i<n;i++)

fscanf(fp,"%[^\n]%c"); / 跳过一行字符串 /

fscanf(fp,"%[^\n]%c",str);/ 读入一行字符串 /

printf("%s\n", str);

fclose(fp);

}

用file函数将文件读入数组

然后随机输出到另一个文件就好了

file函数直接传入文件路径 返回值就是一个数组

自动按行分割的

这个函数具体用法你百度一下 我手机没法给你发例子

或者等明天上班后给你发例子

Dim xx() As String, aa As Integer

Private Sub Command1_Click()

Text1Text = ""   '清空文本框，这样可以多次点击按钮得到不同的内容

Dim zz As Integer

Randomize

zz = Int(Rnd  aa + 1)     '得到一个随机数

Text1Text = xx(zz)   '在文本框显示随机数的一行

End Sub

Private Sub Form_Load()

Dim PPP As String

Open "E:\VB事件简介txt" For Input As #1     '打开E:\VB事件简介txt文件，可以修改为你的文件路径+文件名+扩展名

Do While Not EOF(1)    'DO循环

Input #1, PPP

aa = aa + 1    '得到文件的行数

Loop

Close #1   '关闭文件

ReDim xx(1 To aa)   '重新定义数组的下标

Dim yy As Integer

Open "E:\VB事件简介txt" For Input As #1     '打开E:\VB事件简介txt文件，可以修改为你的文件路径+文件名+扩展名

Do While Not EOF(1)    'DO循环

yy = yy + 1

Input #1, PPP

xx(yy) = PPP & vbCrLf    '将各行分别存储在数组xx中

Loop

Close #1   '关闭文件

End Sub

你把姓名和年龄换个分隔符要简单的多比如

AAA-111

BBB-222

Randomize

Text = PluginFileReadFileEx("F:\123txt")

Text = split(Text, "|")

sj = int(UBound(Text)  rnd)

zm = split(Text(sj), "-")

姓名 = zm(0)

年龄 = zm(1)

如果你一定要用"|",那么还需要判断随机数的奇偶,才能知道随机到的数字代表的是姓名还是年龄

$content = file("testtxt");

$randContent = array_rand($content,5);

echo implode("<br />",$randContent);

第一行使用file把把整个文件读入一个数组中

第二行使用array_rand在数组中随机取出5个元素

第三行将取出的5个数组中间添加<br />标签并打印出来

file

把整个文件读入一个数组中

file ( string $filename , int $flags = 0 , resource $context =  ) : array

array_rand

从数组中随机取出一个或多个随机键

array_rand ( array $array , int $num = 1 ) : int|string|array

implode

将一个一维数组的值转化为字符串

implode ( string $glue , array $pieces ) : string

将TXT文本的内容全部复制，贴到EXCEL工作簿的B2格，结果是每行占一单元格；在A1输入随机数函数： =RAND()，下拉至同B列的各行；选择A列，选择性粘贴-数值到A列；点A1格排序，将文本各行次序打乱；将B列内容复制贴到记事本，保存。

以上就是关于asp随机读取txt文本5行显示 现有 1.asp和1.txt，1.txt有N行的内容随机读取5行，没读取一行用逗号隔开全部的内容，包括:asp随机读取txt文本5行显示 现有 1.asp和1.txt，1.txt有N行的内容随机读取5行，没读取一行用逗号隔开、php 关于mysql随机导入txt、求个C语言程序 读取TXT文件第二行（随机换行）数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！