C / C++ / MFC

Dim fso
Dim file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("c:\myfile.txt", true)
file.WriteLine("This is a line in my file")
file.Close

CStdioFile file("c:\\myfile.txt", CFile::modeRead);
CString strLine;
file.ReadString(strLine);
file.Close();

m_Ctrl.SetScrollPos(SB_VERT, position);

//Start a new workbook in Excel
_Application oApp;
oApp.CreateDispatch("Excel.Application");
if (!oApp)
{
	AfxMessageBox("Cannot start Excel");
	return;
}
		
Workbooks oBooks = oApp.GetWorkbooks();
_Workbook oBook = oBooks.Add(vOpt);
Worksheets oSheets = oBook.GetWorksheets();
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
Range oRange;
long bMergeAcross = 0;
//prepare style
Styles styles = oBook.GetStyles();
			
Style s = styles.Add("Style with Center Text", vOpt);
		
s.SetVerticalAlignment(2);
s.SetHorizontalAlignment(3);
Font oFont = s.GetFont();
oFont.SetSize(COleVariant((long)FONT_SIZE_JUSTIFICATION));
	
VARIANT vt;
vt.vt = VT_DISPATCH;
vt.pdispVal = s.m_lpDispatch;

//use vt as a new style
oRange.SetStyle(vt);
		
oRange=oSheet.GetRange(COleVariant("A1"),COleVariant("A2"));
oFont = oRange.GetFont();
oFont.SetBold(COleVariant((short)TRUE));