用C++写一个读取文本文件中高程数据并进行计算的程序

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#include <windows.h>

#include <io.h>

#define NUMBER 20  //要多少组数据，自己定义

int main()

{

    FILE *fp

    HANDLE file

    int i, j,k=0,tmp=0, a[4], b[NUMBER], sum=0

    char result[14]

    char *buffer

    int StrToInt( char* buffer ) //字符串转整形函数定义.

    memset( b, 0, sizeof(b) ) //内存初始化

    file = (HANDLE)_lopen("c:\\Data.txt", OF_READWRITE | OF_SHARE_DENY_NONE)//判断文件是否占用.

    srand(time(NULL))//初始化随机发生器.

    if( file == (HANDLE)HFILE_ERROR )

    {    

      fp = fopen( "c:\\Data.txt", "a" ) //以追加方式打开文件.

      for( i=0 i<NUMBER i++)

      {

         fprintf( fp, "%-13d%-13d%-13d%-13d\n", rand()%100+1, rand()%100+1, rand()%100+1, rand()%100+1 )//随机数据

      }

      fclose(fp)

    }    

    CloseHandle(file)

    buffer = (char*)malloc(1024)

    fp = fopen( "c:\\Data.txt", "r" ) //以只读方式打开文件.

    while( !feof(fp) )

    {

       memset( buffer, 0, 1024 )

       fgets( buffer, 1024, fp )//从文件获取数据，每次获取一行.

       for( j=0 j<4 j++ )

       {

          memset( result, 0, 14 )

          strncpy( result, buffer, 13 )

          tmp = StrToInt( result )

          switch(j)

          {

             case 0: a[0] = tmp break

             case 1: a[1] = tmp break

             case 2: a[2] = tmp break

             case 3: a[3] = tmp break

             default: printf("ERROR.")

          }

          buffer += 13 //指针偏移

       }

       b[k++] = a[0] + a[3] - a[1] - a[2] //计算数据保存，两边之和 减去 中间之和    

    }

    for( i=0 i<NUMBER i++ )

    {

       sum += b[i]  //累加结果

    }

    printf("result: %d\n", sum)

    fclose(fp)

    fp = NULL

    free(buffer)

    system("pause")

    return 0

}

int StrToInt( char* result )

{

   int i,length,sum=0,temp=1

   for( i=0 result[i] != '\0' i++) //去掉空格，数据是由程序自己产生的，所有只用判断右边空格就可以了，%-13d

   {

      if( result[i] == ' ' )

      {

         result[i] = '\0'

         break

      }

   }

   length = strlen( result )

   for( i=length-1 i>=0 i-- )  //字符转整形.

   {

      sum += ( result[i] - '0' ) * temp 

      temp *= 10

   }

   return sum

}

 

//哪里不懂，可以加我QQ 476644693讨论!

（坐标正反算，程序模块化设计,可自行升级，扩展功能）

建议录入程序次序

KEYLOCK　 锁键程序　可独立测试能正常运行　1

DISPLAYXYZ　主程序可独立测试能正常运行　2

READDAT要素数据库文件　（请改为自已路线的要素）　3

ZBJS 　坐标计算程序　4

INZHANDZBJS桩号、横距输入程序　5

TURNZH　坐标反算6

INNEZ 　实测坐标输入程序7

如正确输入以上程序，运行DISPLAYXYZ，按“0”进行坐标反算，按“.”进行坐标正算。

技术支持：Q285507730

FileName:INZHANDZBJS

//:桩号、横距输入程序://

Lbl S

Cls:Norm 1

"ZH"?G桩求桩号

"JL"?B 输入横向距离

"JJ"?W 输入斜桩角，一般为90

Wπ÷180→W

Prog"ZBJS" 080702晚添加

Return

FileName：ZBJS 坐标计算程序

Prog"READDAT"

Rad

G-M→Q

0.5(R-A)÷L→K

AQ→I

KQ2→J

0.0469100770→P:H+IP+JP2→O

0.2307653449→P:H+IP+JP2→T

0.5→P :H+IP+JP2→D

0.7692346551→P:H+IP+JP2→F

0.9530899230→P:H+IP+JP2→P

0.1184634425→I

0.2393143352→J

0.2844444444→Y

N+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→X

E+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→Y

H+AQ+KQ2→F

X+BCos(F+W)→X

Y+BSin(F+W)→Y

Return

FileName:TURNZH(坐标反算)

Prog"INNEZ"

0→B：M+L÷2→G：Prog"ZBJS"

Lbi S:Rad

U-X→I:V-Y→J

If I=0 And J=0 :Then Goto A:IfEnd

Pol(I,J)

Lbi A:Rec(I,J-F)

G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙

J→B

FileName：INNEZ 实测坐标输入程序

Lbl S

Norm 1:Cls

"DQD-N"?U 输入待求点N坐标

"DQD-E"?V输入待求点E坐标

Return

FileName:KEYLOCK

//:本程序用于锁定键盘大部分按键，设定时间内无按键则反回默认健。只有“0”，“.”,“x10x”,“(-)”这四个键可用，为了更方便说明程序，以后将分别定义这四个键为热键

“0”===F1

“.”===F2

“x10x” ===F3

“(-)” ===F4

Exit退出程序

://

1000→J 无按键时间，5800设1000时大约为50秒。

Lbl S

0→I

Do:I+1→I:I≥J=>Goto E:LpWhile Not(Getkey=25 Or Getkey=26 OrGetkey=27 OrGetkey=57 OrGetkey=73)

Getkey=73=>Stop 停止全部程序

Getkey=0=>Goto S

Getkey→I:Return

Lbl E

57→I:Retrutn 默认按键值为F4

FileName:DISPLAYXYZ

//:<主程序>,显示：桩号，N，E，Z，横向偏移。

热键功能

F1 快捷坐标反算

F2 快捷坐标正算

F3

F4

://

7→DimZ

Z[1]→N　当前分段要素N坐标

Z[2]→E　当前分段要素E坐标

Z[3]→M　当前分段要素起点桩号

Z[4]→H　当前分段要素起点方位角（正北）单位：弧度

Z[5]→A　当前分段要素起点曲率有左偏负右偏正（注意不是半径）

Z[6]→R　当前分段要素终点曲率有左偏负右偏正（注意不是半径）

Z[7]→L　当前分段要素长度

Lbl S:Cls:Fix 3

"ZH=":Locate 4,1,G

"N=":Locate 3,2,X

"E=":Locate 3,3,Y

"Z":Locate 2,4,Z　注意，本程序无高程计算。所以这句无意义。

Locate 10,4,B

Prog "KEYLOCK"

If I=25:Then Prog "TURNZH":Goto S:IfEnd 定义F1功能

If I=26:Then Prog "INZHANDZBJS":Goto S:IfEnd 定义F2功能

Goto S

FileName:READDAT　要素数据库文件

π÷180→J

GM+L=>Goto 1

Return

Lbi 1

If G<30008.396:Then Cls:Stop:IfEnd↙ 判断待求桩号是否小于本要素起点，如小于就停止运行程序

If G<30661.038(终点里程):Then 2851422.090(起点X)→N:513896.440(起点Y)→E:30008.396→M:213°32′52″J(起点方位角)→H:0 (起点曲率)→A:0(终点曲率)→R:652.642起点至终点长度→L:Goto E:IfEnd↙

If G<30921.038:Then 2850878.162→N:513535.768→E:30661.038→M:213°32′52″J→H:0→A:1÷1300→R:260→L:Goto E:IfEnd↙

If G<31426.367:Then 2850666.478→N:513385.004→E:30921.038→M:219°16′39″J→H:1÷1300→A:1÷1300→R:505.328→L:Goto E:IfEnd↙

If G<31686.367:Then 2850346.483→N:512998.015→E:31426.367→M:241°32′56″J→H:1÷1300→A:0→R:260→L:Goto E:IfEnd↙

If G>31686.367:Then Cls:Stop:IfEnd↙ 判断待求桩号是否大于本要素终点，如大于就停止运行程序

Lbi E

N→Z[1]:E→Z[1]:M→Z[3]:H→[4]:A→Z[5]:R→Z[6]:L→Z[7] 记忆当前要素以免重复搜索

Return

---