vbs.cpp

VideoMan is a very easy image acquisition library. It is able to manage many video inputs at the sam

// vbs.cpp v1.0
// Purpose: facilities for MSWord VBA scripts.
// by hujinshan @2004-12-8 22:02:30

#include "vbs.h"

#include <string>

std::string& str_trim_left(std::string& str)
{
	std::string::iterator iter;
	for(iter=str.begin(); iter!=str.end(); ++iter)
	{
		if(!iswspace(*iter))
			break;
	}
	str.erase(str.begin(), iter);
	return str;
}

std::string& str_trim_right(std::string& str)
{
	std::string::iterator iter;
	iter=str.end();
	for(iter--; iter!=str.begin(); iter--)
	{
		if(!iswspace(*iter))
		{
			break;
		}
	}
	iter++;
	str.erase(iter, str.end());
	return str;
}

std::string& str_trim(std::string& str)
{
	return str_trim_right(str_trim_left(str));
}

std::string create_new()
{
	std::string str;
	str="Set Word = CreateObject(\"Word.Application\")\n";
	str+="Word.Documents.Add\n\n\n";
	return str;
}

std::string close_save(const char* filename)
{
	std::string str;
	str="Word.ActiveDocument.SaveAs (\"";
	str+=filename;
	str+="\")\n";
	str+="Word.Quit (False)\n";
	str+="Set Word = Nothing\n\n\n";
	return str;
}

//selection 往下移，以继续生成下一元素
std::string move_down()
{
	std::string str;
	str+="Word.Selection.MoveDown 5, 1000\n";
	str+="Word.Selection.TypeParagraph\n\n";
	return str;
}

std::string put_Paragraph()
{
	std::string str;
	str="\nWord.Selection.TypeParagraph\n\n";
	return str;
}

//添加标题
//std::string put_title(const char* title, const char* title_type="标题 1", int align=ALIGN_LEFT)
std::string put_title(const char* title, const char* title_type, int align)
{
	std::string str;
	str+=put_Paragraph();	
	str="\nWord.Selection.MoveDown 5, 1000\n"
		"Word.Selection=\"";
	str+=title;
	str+="\"\nWord.Selection.ParagraphFormat.Alignment = ";
	if(align==ALIGN_CENTER)
		str+="wdAlignParagraphCenter";
	else if(align==ALIGN_LEFT)
		str+="wdAlignParagraphLeft";
	else if(align==ALIGN_RIGHT)
		str+="wdAlignParagraphRight";
	str+="\nWord.Selection.Style = Word.ActiveDocument.Styles(\"";
	str+=title_type;
	str+="\")\n\n";
	str+=move_down();

	return str;
}

//添加“标题1”
//std::string put_title1(const char* title, int align=ALIGN_CENTER)
std::string put_title1(const char* title, int align)
{
	return put_title(title, "标题 1", align);
}

//std::string put_title2(const char* title, int align=ALIGN_LEFT)
std::string put_title2(const char* title, int align)
{
	return put_title(title, "标题 2", align);
}

//std::string put_title3(const char* title, int align=ALIGN_LEFT)
std::string put_title3(const char* title, int align)
{
	return put_title(title, "标题 3", align);
}

//添加表格的一行数据
std::string add_grid_ln(const char* line)
{
	std::string str;
	str="\"";
	str+=str_trim(std::string(line) );
	str+="\"";
	str+="+ vbCrLf _\n";
	return str;
}

//content必须用add_grid_ln操作来完成
std::string put_grid(const char* content)
{
	std::string str;
	str="Word.Selection =";//\"

	//std::string cstr(content);//"\"+ vbCrLf _\n");
	//std::string strtmp("\"+ vbCrLf"); //("\"+ vbCrLf _\n");

	//if( cstr.Right(strtmp.GetLength() )==strtmp)
	//	cstr.Delete(cstr.GetLength()-strtmp.GetLength(), strtmp.GetLength());
	str+=content;	//(LPCSTR)cstr;
	str+="\n\n";	//"\"\n\n";

	str+="Word.Selection.ConvertToTable 100, 100, 0, 0 \n";
	str+="With Word.Selection.Tables(1) \n";
	str+="        If .Style <> \"网格型\" Then \n";
	str+="            .Style = \"网格型\" \n";
	str+="        End If \n";
	str+="        .ApplyStyleHeadingRows = True \n";
	str+="        .ApplyStyleLastRow = True \n";
	str+="        .ApplyStyleFirstColumn = True \n";
	str+="        .ApplyStyleLastColumn = True \n";
	str+="End With \n\n\n";
	return str;
}

std::string add_warning_msg(const char* msg)
{
	std::string str;
	str="\nWord.Selection=\"";
	str+=msg;
	str+="\"\n";
	str+="Word.Selection.Font.Color = wdColorLightBlue\n";
	str+=move_down();
	return str;
}

extern "C" void RunScript(const char* script_str);
#pragma comment(lib, "ScriptHost.lib")


// end of file