Changeset 90
 Timestamp:
 Feb 12, 2007, 12:14:04 AM (17 years ago)
 Location:
 Include/basic
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Include/basic/command.sbp
r89 r90 105 105 ' 106 106 107 Dim _System_hFile(255) As VoidPtr107 Dim _System_hFile(255) As HANDLE 108 108 Macro OPEN(lpFileName As String, AccessFor As Long, FileNumber As Long) 109 109 Dim dwAccess As Long 110 Dim bAppend As Long110 Dim bAppend = 0 As Long 111 111 Dim dwCreationDisposition As Long 112 112 113 FileNumber=FileNumber1 114 115 bAppend=0 113 FileNumber 114 116 115 Select Case AccessFor 117 116 Case 0 … … 134 133 If bAppend Then SetFilePointer(_System_hFile(FileNumber),0,NULL,FILE_END) 135 134 End Macro 135 136 136 Macro CLOSE()(FileNumber As Long) 137 FileNumber =FileNumber1137 FileNumber 138 138 139 139 If _System_hFile(FileNumber) Then … … 153 153 Dim IsStr As Long 154 154 155 FileNumber =FileNumber1155 FileNumber 156 156 157 157 buffer=ZeroString(GetFileSize(_System_hFile[FileNumber],0)) … … 173 173 IsStr=0 174 174 While 1 175 i3 =i3+1175 i3++ 176 176 177 177 i2=ReadFile(_System_hFile[FileNumber],temp,1,VarPtr(dwAccessBytes),ByVal 0) … … 263 263 buffer[i3]=UsingStr[i2] 264 264 If UsingStr[i2]=0 Then Exit While 265 i2 =i2+1266 i3 =i3+1265 i2++ 266 i3++ 267 267 Wend 268 268 … … 283 283 i4=i2 284 284 While UsingStr[i4]=Asc("#") 285 i4 =i4+1285 i4++ 286 286 Wend 287 287 If UsingStr[i4]=Asc(".") Then 288 i4 =i4+1288 i4++ 289 289 290 290 dblRoundOff=0.5 291 291 While UsingStr[i4]=Asc("#") 292 i4 =i4+1293 dblRoundOff =dblRoundOff/10292 i4++ 293 dblRoundOff /= 10 294 294 Wend 295 295 End If … … 304 304 305 305 '符号が有る場合は、一文字分のスペースを考慮する 306 If sign Then length_num =length_num+1306 If sign Then length_num++ 307 307 308 308 length_buf=0 309 309 Do 310 i2 =i2+1311 length_buf =length_buf+1310 i2++ 311 length_buf++ 312 312 Loop While UsingStr[i2]=Asc("#") 313 313 … … 315 315 '通常時 316 316 FillMemory(StrPtr(buffer)+i3,length_buflength_num,Asc(" ")) 317 i3 =i3+(length_buflength_num)317 i3 += length_buf  length_num 318 318 319 319 If sign Then 320 320 buffer[i3]=Asc("") 321 i3 =i3+1322 323 length_num =length_num1321 i3++ 322 323 length_num 324 324 End If 325 325 … … 330 330 End If 331 331 332 i3 =i3+length_num332 i3 += length_num 333 333 Else 334 334 '表示桁が足りないとき 335 335 FillMemory(StrPtr(buffer)+i3,length_buf,Asc("#")) 336 i3 =i3+length_buf336 i3 += length_buf 337 337 End If 338 338 339 339 If UsingStr[i2]=Asc(".") Then 340 340 buffer[i3]=UsingStr[i2] 341 i2 =i2+1342 i3 =i3+1341 i2++ 342 i3++ 343 343 344 344 i4=dec … … 349 349 buffer[i3]=temp2[i4] 350 350 End If 351 i3 =i3+1352 i4 =i4+1353 354 i2 =i2+1351 i3++ 352 i4++ 353 354 i2++ 355 355 Wend 356 356 End If 357 357 ElseIf UsingStr[i2]=Asc("@") Then 358 i2 =i2+1358 i2++ 359 359 360 360 lstrcat(StrPtr(buffer)+i3,_System_UsingStrData[ParmNum]) … … 363 363 i4=0 364 364 Do 365 i4 =i4+1366 i2 =i2+1365 i4++ 366 i2++ 367 367 Loop While UsingStr[i2]=Asc(" ") 368 368 369 369 If UsingStr[i2]=Asc("&") Then 370 i4 =i4+1371 i2 =i2+1370 i4++ 371 i2++ 372 372 i5=lstrlen(_System_UsingStrData[ParmNum]) 373 373 If i4<=i5 Then … … 377 377 End If 378 378 memcpy(StrPtr(buffer)+i3,_System_UsingStrData[ParmNum],i5) 379 i3 =i3+i4379 i3 += i4 380 380 Else 381 i2 =i2i4381 i2 = i4 382 382 buffer[i3]=Asc("&") 383 i2 =i2+1384 i3 =i3+1383 i2++ 384 i3++ 385 385 Continue 386 386 End If 387 387 End If 388 388 389 ParmNum =ParmNum+1389 ParmNum++ 390 390 Wend 391 391 … … 396 396 Dim buf As String 397 397 398 FileNumber =FileNumber1398 FileNumber 399 399 buf=_System_GetUsingFormat(UsingStr) 400 400 … … 404 404 Dim _System_FieldSize(255) As Long 405 405 Macro FIELD(FileNumber As Long, FieldSize As Long) 406 FileNumber =FileNumber1406 FileNumber 407 407 408 408 _System_FieldSize(FileNumber)=FieldSize … … 411 411 Dim dwAccessByte As Long 412 412 413 FileNumber =FileNumber1414 RecodeNumber =RecodeNumber1413 FileNumber 414 RecodeNumber 415 415 416 416 SetFilePointer(_System_hFile(FileNumber),RecodeNumber*_System_FieldSize(FileNumber),NULL,FILE_BEGIN) … … 424 424 Dim dwAccessByte As Long 425 425 426 FileNumber =FileNumber1427 RecodeNumber =RecodeNumber1426 FileNumber 427 RecodeNumber 428 428 429 429 SetFilePointer(_System_hFile(FileNumber),RecodeNumber*_System_FieldSize(FileNumber),NULL,FILE_BEGIN) … … 435 435 End Macro 436 436 Macro MKDIR(path As String) 437 CreateDirectory(path, ByVal0)437 CreateDirectory(path, 0) 438 438 End Macro 439 439 Macro KILL(path As String) 
Include/basic/prompt.sbp
r89 r90 10 10 Dim _PromptSys_hWnd As HWND 11 11 Dim _PromptSys_dwThreadID As DWord 12 Dim _PromptSys_bInitFinish As Long12 Dim _PromptSys_bInitFinish As BOOL 13 13 14 14 'text … … 73 73 _PromptSys_BackColor[100]=HeapAlloc(_System_hProcessHeap,HEAP_ZERO_MEMORY,255*SizeOf(LONG_PTR)) 74 74 75 _PromptSys_CurPos.y =_PromptSys_CurPos.y175 _PromptSys_CurPos.y 76 76 77 77 'Redraw … … 108 108 temporary,lstrlen(temporary)) 109 109 110 If IsDBCSLeadByte(temporary[0]) Then i2 =i2+1110 If IsDBCSLeadByte(temporary[0]) Then i2++ 111 111 Next 112 112 End If 113 113 114 i =i+1114 i++ 115 115 Wend 116 116 … … 135 135 FillMemory(_PromptSys_Buffer[_PromptSys_CurPos.y]+_PromptSys_CurPos.x,i3,Asc(" ")) 136 136 137 i2 =i2+1138 _PromptSys_CurPos.x =_PromptSys_CurPos.x+i3137 i2++ 138 _PromptSys_CurPos.x += i3 139 139 Continue 140 140 End If 141 141 142 142 If buf[i2]=13 and buf[i2+1]=10 Then '\r\n 143 i2 =i2+2144 _PromptSys_CurPos.y =_PromptSys_CurPos.y+1143 i2 += 2 144 _PromptSys_CurPos.y++ 145 145 _PromptSys_CurPos.x=0 146 146 Continue … … 152 152 _PromptSys_BackColor[_PromptSys_CurPos.y][_PromptSys_CurPos.x]=_PromptSys_NowBackColor 153 153 154 i2 =i2+1155 _PromptSys_CurPos.x =_PromptSys_CurPos.x+1154 i2++ 155 _PromptSys_CurPos.x++ 156 156 Loop 157 157 … … 440 440 If _PromptSys_InputStr[i2]=0 Then Exit While 441 441 442 i2 =i2+1443 i3 =i3+1442 i2++ 443 i3++ 444 444 Wend 445 445 … … 466 466 End Select 467 467 468 i =i+1468 i++ 469 469 If _System_InputDataPtr[i]=0 and _PromptSys_InputStr[i2]=Asc(",") Then 470 470 PRINT_ToPrompt(Ex"入力データの個数が多すぎます\r\n") … … 499 499 i=0 500 500 While _PromptSys_Buffer[y][i] 501 i =i+1501 i++ 502 502 Wend 503 503 … … 550 550 Ellipse(_PromptSys_hMemDC,xradius,yradi2,x+radius,y+radi2) 551 551 Else 552 StartPos =StartPos*100553 EndPos =EndPos*100552 StartPos *=StartPos 553 EndPos *=EndPos 554 554 555 555 If StartPos<0 Or EndPos<0 Then … … 559 559 End If 560 560 561 If StartPos<0 Then StartPos=StartPos*1562 If EndPos<0 Then EndPos=EndPos*1561 StartPos = Abs(StartPos) 562 EndPos = Abs(EndPos) 563 563 564 564 If StartPos<=78.5 Then … … 566 566 i2=Int(StartPos) 567 567 ElseIf StartPos<=235.5 Then 568 StartPos =StartPos78.5568 StartPos = 78.5 569 569 i1=78Int(StartPos) 570 570 i2=78 571 571 ElseIf StartPos<=392.5 Then 572 StartPos =StartPos235.5572 StartPos = 235.5 573 573 i1=78 574 574 i2=78Int(StartPos) 575 575 ElseIf StartPos<=549.5 Then 576 StartPos =StartPos392.5576 StartPos = 392.5 577 577 i1=78+Int(StartPos) 578 578 i2=78 579 579 ElseIf StartPos<=628 Then 580 StartPos =StartPos549.5580 StartPos = 549.5 581 581 i1=78 582 582 i2=78+Int(StartPos) … … 587 587 i4=Int(EndPos) 588 588 ElseIf EndPos<=235.5 Then 589 EndPos =EndPos78.5589 EndPos = 78.5 590 590 i3=78Int(EndPos) 591 591 i4=78 592 592 ElseIf EndPos<=392.5 Then 593 EndPos =EndPos235.5593 EndPos = 235.5 594 594 i3=78 595 595 i4=78Int(EndPos) 596 596 ElseIf EndPos<=549.5 Then 597 EndPos =EndPos392.5597 EndPos = 392.5 598 598 i3=78+Int(EndPos) 599 599 i4=78 600 600 ElseIf EndPos<=628 Then 601 EndPos =EndPos549.5601 EndPos = 549.5 602 602 i3=78 603 603 i4=78+Int(EndPos) … … 631 631 632 632 If bStep Then 633 ex =sx+ex634 ey =sy+ey633 ex += sx 634 ey += sy 635 635 Else 636 636 If fType Then … … 754 754 Input$=Input$+Chr$(_PromptSys_KeyChar) 755 755 _PromptSys_KeyChar=0 756 i =i+1756 i++ 757 757 If i>=length Then 758 758 Exit While
Note:
See TracChangeset
for help on using the changeset viewer.