Selective file copy: Difference between revisions
Selective file copy in FreeBASIC
m (→{{header|Phix}}: syntax coloured, made p2js compatible) |
(Selective file copy in FreeBASIC) |
||
Line 453:
Output:<pre> Mt. Cook trig. (-41.29980,174.7763)</pre>
=={{header|FreeBASIC}}==
{{trans|Julia}}
<lang freebasic>Open "m:\in.txt" For Input As #1
Open "m:\out.txt" For Output As #2
Dim As String linea, campoa, campob, campod
Dim As Integer campoc
Do Until Eof(1)
Line Input #1, linea
campoa = Left(linea, 5)
campob = Mid(linea,6,10)
campoc = Valint(Mid(linea,11,4)) * Iif(Mid(linea,15,1) = "-", -1, 1)
campod = Mid(linea,16,20)
Print #2, campoa; campoc; String(Len(campod), "X")
Loop
Close #1, #2
Sleep</lang>
{{out}}<pre>in.txt:
A bbbbB0001+d2345
AA bbbBB0002+1d345
AAA bbBBB0003+12d45
AAAA bBBBB0001-123d5
AAAAABBBBB0002-1234d
out.txt:
A 1XXXXX
AA 2XXXXX
AAA 3XXXXX
AAAA -1XXXXX
AAAAA-2XXXXX
</pre>
=={{header|Go}}==
| |||