QT翻成vb.net

adore79 2017-05-12 10:45:33

void CTabWidget::runIt()
{
qDebug()<<"[CTabWidget::runIt] beg";

QFile file;

// 读取 gcc 位置
file.setFileName("cc.path");
if( ! file.open(QIODevice::ReadOnly | QIODevice::Text) ){
QMessageBox::warning(this,"警告","未找到编译器!\n请到当前目录下 cc.path 文件中正确配置编译器路径!");
return;
}
QTextStream in(&file);
QString gccPath;
in >> gccPath;
file.close();

QString cmd( gccPath + " main.c 2> error.log && a.exe && pause && del main.c a.exe error.log ");

// 将文本保存到文件
file.setFileName("main.c");
if( ! file.open(QIODevice::WriteOnly | QIODevice::Text) ){
qDebug()<<"[CTabWidget::runIt] file open failed";
return ;
}
QTextStream out(&file);
out << this->toCCode();
out.flush();
file.close();

// system("mingw491_32\\bin\\gcc.exe main.c 2> error.log && a.exe && pause && del main.c a.exe error.log " );
system( cmd.toLatin1().data() );

// 读取错误信息
file.setFileName("error.log");
if( file.open( QIODevice::ReadOnly | QIODevice::Text ) && file.size() )
{
QString errorInfo;

QTextStream in(&file);
while( ! in.atEnd() )
{
errorInfo += in.readLine() + "\n";
}

QMessageBox::warning(this, "编译信息", errorInfo);

file.close();
}

qDebug()<<"[CTabWidget::runIt] end";
}
...全文
242 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,553

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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