Jump to content

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

Page contents not supported in other languages.
From Wikipedia, the free encyclopedia
[edit]

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:

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

[edit]

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

[edit]

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]