qfgl.net
当前位置:首页>>关于inputbox getline的资料>>

inputbox getline

while(TRUE){i=0; //这里是你死循环的根据原因,应该把它放到循环外面 pt[i]=strtod(a,&a); a=a+1; pt[i+1]=strtod(a,&a); a=p; inputbox_getline("请继续输入坐标","形式如x1,y1并输入回车",a,100); i=i+2; //这里因为上面的原因,所以,每次的i的值都是2 if(i==2*n)break; //这里n是你输入的值,因为你输入的数不是1,所以只能死循环了}

ege仅有那一个输入函数 inputbox_getline

在TEXT里面只能按回车来判断行,第11个回车符和第12个回车符之间的内容就是12行的内容.

VB6.0可以用一次读取文本框全部文本内容,然后使用Split函数来实现一行一行提取文本框行内容.Split函数,返回一个下标从零开始的一维数组,它包含指定数目的子字符串.实现代码:Private Sub Command1_Click() Dim strSj As String Dim strSjfh As Variant Dim i As Long strSj = Text1 strSjfh = Split(strSj, vbCrLf) Text2 = UBound(strSjfh) '总行数 i = InputBox("输入要读的行数", i) MsgBox (strSjfh(i - 1)) End Sub

搜索文件,找到回车符,第i行就在第i-1个回车符和第i个回车符之间

function lines(txtpath as string, byval startline as integer, linenum as integer) as string '显示 txtpath 文件的从startline 行开始的 linenum 行的内容 lines = "" dim filetxt as string, x as variant, i as integer filetxt = string(filelen(txtpath), " ") open

VB的顺序文件只能通过循环.一行一行的读下去.直到你想要的那行.

这是我写代码,图片为:运行结果# include<stdio.h> main() {char str[]={"this is a c programe"}; char t; int i,length; length=strlen(str); for(i=0;i<length/2;i++) {t=str[i]; str[i]=str[length-i-1]; str[length-i-1]=t; } puts(str); }

#include <iostream> using namespace std; void meger(int a[],int b[],int m,int n); int main() { int a[5]={1,5,3,7,9};//定义了第一个数组和值 int b[5]={2,4,8,6,10};//定义了第二个数组和值 meger(a,b,5,5);//调用函数 return 0; } void meger(int a[],int b[],

Private Sub Command1_Click()Dim n%, aOpen "c:\1.txt" For Binary As #1a = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1b = Split(a, vbCrLf)n = Val(InputBox("你想读取第几行?"))If n < 0 Or n > UBound(b) + 1 ThenMsgBox "行数有问题!!"Exit SubEnd IfPrint b(n - 1)End Sub

网站首页 | 网站地图
All rights reserved Powered by www.qfgl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com