Skip to content

Instantly share code, notes, and snippets.

@benmarwick
Created May 12, 2025 16:43
Show Gist options
  • Save benmarwick/303f63e374b02930c1d20e7e893ffcaa to your computer and use it in GitHub Desktop.
Save benmarwick/303f63e374b02930c1d20e7e893ffcaa to your computer and use it in GitHub Desktop.
Remove RST from PoLo log ADIF file
adif_data_string <- c("ADIF for WA7BEN: SOTA at W7U/CA-007 SOTA W7U/CA-007 on 2025-05-10
<ADIF_VER:5>3.1.4
<PROGRAMID:21>Ham2K Portable Logger
<PROGRAMVERSION:6>25.4.6
<EOH>
<CALL:5>AA7OY <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>183820 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>AZ <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7A/AP-007 <EOR>
<CALL:4>KX0R <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184026 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>KS <CQZ:1>4 <ITUZ:1>7 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W0C/FR-086 <EOR>
<CALL:4>K9PM <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184216 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>SD <CQZ:1>4 <ITUZ:1>8 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7A/CS-026 <EOR>
<CALL:5>W7CBR <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184507 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>AZ <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>KB7HH <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184822 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>AZ <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7A/CS-009 <EOR>
<CALL:6>WB6POT <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184952 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>W7SKH <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>185154 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>AZ <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>W7GA <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>185402 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>UT <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:6>KK7QVY <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190324 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>UT <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>K7MK <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190437 <RST_RCVD:3>559 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>ID <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>WW7D <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190521 <RST_RCVD:3>529 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>WA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r529 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>W6DT <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190651 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>AG6AQ <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190817 <RST_RCVD:3>569 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r569 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>NS7P <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>190929 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>OR <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>AC7P <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>191012 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>TX <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>W2WC <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>191139 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>NY <CQZ:1>5 <ITUZ:1>8 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>N9KW <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>191306 <RST_RCVD:3>559 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>IL <CQZ:1>4 <ITUZ:1>8 <COMMENT:9>s599 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:4>NT6E <MODE:2>CW <BAND:3>20m <FREQ:9>14.064000 <QSO_DATE:8>20250510 <TIME_ON:6>191437 <RST_RCVD:3>539 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r539 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>W5ODS <MODE:2>CW <BAND:3>30m <FREQ:9>10.114000 <QSO_DATE:8>20250510 <TIME_ON:6>192319 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>OK <CQZ:1>4 <ITUZ:1>7 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>WJ7WJ <MODE:2>CW <BAND:3>30m <FREQ:9>10.114000 <QSO_DATE:8>20250510 <TIME_ON:6>192525 <RST_RCVD:3>599 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>OR <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7O/NC-017 <EOR>
<CALL:4>K6EL <MODE:2>CW <BAND:3>30m <FREQ:9>10.114000 <QSO_DATE:8>20250510 <TIME_ON:6>192707 <RST_RCVD:3>599 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:9>W6/NC-298 <EOR>
<CALL:5>W7DLZ <MODE:2>CW <BAND:3>30m <FREQ:9>10.114000 <QSO_DATE:8>20250510 <TIME_ON:6>192930 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>NV <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7A/CS-039 <EOR>
<CALL:4>K1CT <MODE:2>CW <BAND:3>30m <FREQ:9>10.114000 <QSO_DATE:8>20250510 <TIME_ON:6>193113 <RST_RCVD:3>559 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>CA <CQZ:1>5 <ITUZ:1>8 <COMMENT:9>s599 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
<CALL:5>N7LKL <MODE:2>CW <BAND:3>10m <FREQ:9>28.060000 <QSO_DATE:8>20250510 <TIME_ON:6>193413 <RST_RCVD:3>599 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>OR <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s559 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7O/NC-017 <EOR>
<CALL:5>W5ESE <MODE:2>CW <BAND:3>20m <FREQ:9>14.065000 <QSO_DATE:8>20250510 <TIME_ON:6>193753 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>TX <CQZ:1>4 <ITUZ:1>7 <COMMENT:9>s559 r559 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W5N/SC-006 <EOR>
<CALL:4>KA5D <MODE:2>CW <BAND:3>15m <FREQ:9>21.060000 <QSO_DATE:8>20250510 <TIME_ON:6>195252 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>TX <CQZ:1>4 <ITUZ:1>7 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <EOR>
")
regex_pattern <- " ?<(?:[A-Z_]*RST[A-Z_]*|COMMENT):\\d+>[^<]*"
# Remove the matched fields by replacing them with an empty string
cleaned_adif_string <- gsub(regex_pattern, "", adif_data_string, perl = TRUE)
cat(cleaned_adif_string)
# install.packages("clipr")
clipr::write_clip(cleaned_adif_string)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment