GrADS站点资料作图详细解决方案

carlye2002

很详细，很仔细。可以当老师

passer-by

楼主给力呀~赞赞赞

南信陶局

谢谢楼主分享~

赵狗剩

太好了

realy

感谢楼主分享

hthuangying

谢谢分享，就是需要这个。

风云骤

不喜欢用fortran，用C#写了文中第一个读取数据并写入二进制文件的程序，测试可以出图，请大家批评指正
namespace test
{
    class Program
    {
        static void Main(string[] args)
        {
            string line;
            string[] str;
            char[] stid = new char[8];
            int nlev = 1; int flag = 1;
            float tim = 0; float lon = 0; float lat = 0; float rain = 0;
            try
            {
                StreamReader sr = new StreamReader(@"D:\test\GrADS站点资料作图\raindata.txt");
                FileStream fs = new FileStream(@"D:\test\GrADS站点资料作图\test.grd", FileMode.Create);
                BinaryWriter bw = new BinaryWriter(fs);
                sr.ReadLine(); sr.ReadLine();         //头两行为无用字符串
                while ((line = sr.ReadLine()) != null)
                {
                    str = Regex.Split(line, @"\s+");  //用正则表达式，通过空格分割字符串
                    for (int i = 0; i < 5;i++ )
                        stid[i] = str[1].ToCharArray()[i];
                    lat = float.Parse(str[3]);
                    lon = float.Parse(str[2]);
                    rain = float.Parse(str[5]);
                    Console.WriteLine(stid);
                    bw.Write(stid);
                    bw.Write(lat);
                    bw.Write(lon);
                    bw.Write(tim);
                    bw.Write(nlev);
                    bw.Write(flag);
                    bw.Write(rain);
                }
                nlev = 0;
                bw.Write(stid);
                bw.Write(lat);
                bw.Write(lon);
                bw.Write(tim);
                bw.Write(nlev);
                bw.Write(flag);
                sr.Close();
                fs.Close();
                bw.Close();
            }
            catch (Exception ex)
            {
                Console.WriteLine(ex.ToString());
            }
            //Console.ReadKey();
        }
    }
}

亚文

收藏！！！

丫丫丫

谢谢楼主分享

蚓蚯朱

在做毕业论文准备画图，先抱走