如何在程序中调用批处理得到的结果赋值给该程序的一个变量？

echo在屏幕输出是一串整数（比如文件大小）
@echo off
echo %~z1
想达到的目的是把这个整数赋给程序内一个变量
在Fortran中如果直接 C=system('shiyan.bat "ttt.txt"')
C的到的只是system的返回值0
而实际ttt.txt的大小是10 bits
===
目前才去的办法是
C=system('shiyan.bat "ttt.txt" >>size.txt')
然后打开这个size.txt文件，读取其中的值
请问有没有其他更简单的办法？
谢谢