Talk:List of television stations in the San Francisco Bay Area

External links modified
Hello fellow Wikipedians,

I have just modified 2 external links on List of television stations in the San Francisco Bay Area. Please take a moment to review my edit. If you have any questions, or need the bot to ignore the links, or the page altogether, please visit this simple FaQ for additional information. I made the following changes:
 * Corrected formatting/usage for http://www.californiahistoricalradio.com/photos54.html
 * Added archive https://web.archive.org/web/20021221031442/http://homepage.mac.com/viktor2/btw/index.html to http://homepage.mac.com/viktor2/btw/index.html

When you have finished reviewing my changes, you may follow the instructions on the template below to fix any issues with the URLs.

Cheers.— InternetArchiveBot  (Report bug) 19:03, 23 May 2017 (UTC)

I find this page very helpful, but it needs to be refactored & reformatted
This specific list is very helpful to anyone trying to understand the DTV spectrum, and should not be deleted. There are several similar tables elsewhere on the web, but they are inaccurate/out of date. In particular, this one and this one. This problem could be well solved via crowdsourced updating. To do that, this page needs some work.

I suggest that this page be turned into a single, more informative table, essentially a reference list, with little to no explanatory text. I have reached out to the page owners listed above: if they are willing to cooperate, I think we can get their content integrated into a very useful page here.

Editors: what do you think? Davodavo (talk) 16:04, 9 April 2024 (UTC)

All table entries replaced -- and here's how to do mass updates
HI, I have developed a Visual Basic module that allows you to work in Microsoft Excel and painlessly publish changes en masse. The idea is to copy/paste the contents of the table here into a new Excel workbook, edit it as you see fit, then add a new VBA module to the workbook to automate generation of the Wiki Table format. When you run the WikiTableFormat VBA, it will produce a text file called paster.txt...which you then cut/paste into the table in this article.

Here's the VBA code: Sub WikiTableFormat srcfile1 = ThisWorkbook.Name srcfile2F = ThisWorkbook.Path & "\" & srcfile2 outfile = "paster.txt" outfileF = ThisWorkbook.Path & "\" & outfile 'Variable for tracking Import data start position counter1 = 1 maxcust = 400 ' equates to spreadsheet line numbers -- adjust if there are now more channels mincust = 4 ' line 4 is the start of the spreadsheet

'Create a new worksheet which will hold the data for import Workbooks.Add ActiveWorkbook.SaveAs Filename:=outfileF, FileFormat:=xlText, CreateBackup:=False

'Start the transfer of data (mincust = first data line of meter sheet, maxcust = last data line) For counter = mincust To maxcust 'Insert "new row" for the table Windows(outfile).Activate editcell = "A" & counter1 Trim (editcell) Range(editcell).Select ActiveCell.Value = "|-" counter1 = counter1 + 1 'Make sure we're pointing at the sample data Windows(srcfile1).Activate 'Get/Transfer Call Letters editcell = "A" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Owner editcell = "B" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer City of LIcense editcell = "C" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Virtual editcell = "D" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer RF       editcell = "E" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Power editcell = "F" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Antenna editcell = "G" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Network editcell = "H" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 'Get/Transfer Notes editcell = "I" & counter Trim (editcell) Range(editcell).Select Selection.Copy Windows(outfile).Activate editcell1 = CInt(counter1) Trim (editcell1) editcell1 = "A" & editcell1 Trim (editcell1) Range(editcell1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveCell.Value = "|" & ActiveCell.Value Windows(srcfile1).Activate counter1 = counter1 + 1 Next counter

'Save file for import into QuickBooks Windows(outfile).Activate ActiveWorkbook.Save ActiveWorkbook.Close

End Sub Davodavo (talk) 21:01, 27 May 2024 (UTC)