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

This article was nominated for deletion on 10 September 2021. The result of the discussion was no consensus.

	Television portal This article is within the scope of WikiProject Television, a collaborative effort to develop and improve Wikipedia articles about television programs. If you would like to participate, please visit the project page where you can join the discussion. To improve this article, please refer to the style guidelines for the type of work.TelevisionWikipedia:WikiProject TelevisionTemplate:WikiProject Televisiontelevision articles
Low	This article has been rated as Low-importance on the project's importance scale.
	This article is supported by the Television stations task force (assessed as Low-importance).

California: San Francisco Bay Area Low‑importance

	California portal This article is within the scope of WikiProject California, a collaborative effort to improve the coverage of the U.S. state of California on Wikipedia. If you would like to participate, please visit the project page, where you can join the discussion and see a list of open tasks.CaliforniaWikipedia:WikiProject CaliforniaTemplate:WikiProject CaliforniaCalifornia articles
Low	This article has been rated as Low-importance on the project's importance scale.
	San Francisco Bay Area portal This article is supported by San Francisco Bay Area task force (assessed as Mid-importance).

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.

This message was posted before February 2018. After February 2018, "External links modified" talk page sections are no longer generated or monitored by InternetArchiveBot. No special action is required regarding these talk page notices, other than regular verification using the archive tool instructions below. Editors have permission to delete these "External links modified" talk page sections if they want to de-clutter talk pages, but see the RfC before doing mass systematic removals. This message is updated dynamically through the template {{source check}} (last update: 5 June 2024).

If you have discovered URLs which were erroneously considered dead by the bot, you can report them with this tool.
If you found an error with any archives or the URLs themselves, you can fix them with this tool.

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

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)[reply]

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)[reply]