这个深层思考起来比较麻烦呀,毕竟判断输入的字符串是不是数值型很难判断,才力有限~~~~(>_<)~~~~ 根据你的表面要求编了一个:
#include <stdioh>
#define N 20
int main ()
{
int n[N];
printf("Enter a number:\n");
scanf("%s", n);
if (n[0] >= '0' || n[0] <= '9'){
printf("%s is not a number!", n);
}
else;
return 0;
}
#include<stdioh>
int main(){
char p[17];
int i=0,s;
while(scanf("%c",p+i)&&p[i]>='0'&&p[i]<='9')i++;
p[i]=0;s=i;
for(i--;i>=0;i--){
switch(i){
case 0:printf("个位");break;
case 1:printf("十位");break;
case 2:printf("百位");break;
case 3:printf("千位");break;
case 4:printf("万位");break;
case 5:printf("十万位");break;
case 6:printf("百万位");break;
case 7:printf("千万位");break;
case 8:printf("亿位");break;
case 9:printf("十亿位");break;
case 10:printf("百亿位");break;
case 11:printf("千亿位");break;
case 12:printf("万亿位");break;
case 13:printf("十万亿位");break;
case 14:printf("百万亿位");break;
case 15:printf("千万亿位");break;
case 16:printf("亿亿位");break;}
printf("是%c\n",p[s-1-i]);}
return 0;}
识别的标准是什么?根据什么识别?只要整数吗?或者
你描述的情况好像比较复杂,实现准确的全自动可能性不大,
给你一段脚本参考(注释详细),我用这个脚本把一个应用程序的数据复制到EXCEL里。
dim strtext
dim path as String
dim hang as integer
dim lie as integer
dim n as integer
VBS n=1
VBS i=1
//用变量i配合x控制循环次数
VBS lie=3
//从第3列开始写入,lie是列
Plugin hwnd = WindowGetKeyFocusWnd()
//获得当前窗口句柄
Delay 100
//VBSCall path=inputbox("请输入要写入的excel文件路径,如:d:\损失率xls")
path="d:\dw\抄表赵xls"
VBSCall n=cint(inputbox("要写入第几张工作表,请输入整数"))
VBSCall hang =cint(inputbox("从第几行开始写入"))
//hang=2
//从第hang行开始写入,hang是行
VBSCall x =cint(inputbox("要写入多少条到excel,最多25"))
//cint数字函数! 能把字符型变成数字!强制执行整数运算
Delay 100
VBS Set objIE = CreateObject("InternetExplorerApplication")
VBS objIENavigate("about:blank")
Delay 200
While i<=x
Plugin WindowActive(hwnd)
//激活窗口
Delay 666
Gosub Ctrl+C复制
Delay 200
VBS strtext=objIEdocumentparentwindowclipboardDataGetData("text")
strtext=Trim(strtext)
//Trim函数能去掉字符串中的空格
Delay 100
//VBSCall Call MessageBox(strtext)
//SayExpression strtext
Rem ==================下面是写入EXCEL部分==================
Set xlApp=CreateObject("ExcelApplication")
xlAppVisible = false
//True 去掉或改成 false就是前台看不见
Set xlBook = xlAppWorkbooksOpen(path)
//path是文件的路径和名字,如:d:\抄表xls。也可是用变量(本例中用变量path)
//Set xlSheet = xlBookActiveSheet
//如果需要取的不是默认被打开的那个工作表,要用 Set xlSheet = xlBookSheets(Num) Num= 123 替换上句,指定正确的工作表
Set xlSheet = xlBookSheets(n)
//写入第n张工作表,n改成3就是第三张
Delay 100
VBS xlSheetcells(hang,lie)value=strtext
//(行,列)。上面两行就是在单元格写入。(1,1)就是A1格
VBS xlBooksave
//保存用xlBooksave 或者 xlBooksaveAs "保存路径\新名字" 就是另存为。
VBS xlAppquit
VBS Set xlApp=Nothing
hang=hang+1
//lie=lie+1
Rem ==================上面是写入EXCEL部分==================
i=i+1
Gosub 选中下一条记录
EndWhile
VBS objIEQuit
VBSCall Call MessageBox("已完成"&x&"项写入")
EndScript
Sub Ctrl+C复制
KeyDown 17 1
Delay 18
KeyPress 67 1
Delay 18
KeyUp 17 1
Return Ctrl+C
Sub 选中下一条记录
KeyPress 40,1
KeyPress 13,1
Return 选中下一条记录
//结束
strtext=objIEdocumentparentwindowclipboardDataGetData("text")
这行把复制到的内容赋给变量strtext,这样也能实现对复制内容的计算。
以上就是关于运行c语言程序时,需要输入数字,如果输入的不是数字,怎样设计程序让它指出来全部的内容,包括:运行c语言程序时,需要输入数字,如果输入的不是数字,怎样设计程序让它指出来、一个辨别几位数并写出个十百千万位的c语言程序、高分求一个按键精灵识别excel数字的脚本等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)