Find Text in File

04-Aug-0909 Leave a comment

Technorati Tags: ,
 

Private Function IsTextInFile(ByVal MyDir As String, ByVal TextToFind As String, ByVal MyFileWildcard As String) As Boolean

Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
list = My.Computer.FileSystem.FindInFiles(MyDir, TextToFind, True, FileIO.SearchOption.SearchTopLevelOnly, MyFileWildcard)

If list.Count = 1 Then
IsTextInFile = True
End If

End Function

Filed under VB.Net

Search Crystal Reports in Visual Studio for table/procedures

03-Aug-0909 Leave a comment

 
 
This is a part of the VB proc I built to generates the list of all tables used by my reports. Reports are listed in a ‘reports Table’, and I use a memo field to store the name of all used tables. It is then quite easy to update all requested reports once tables have been modified.
Publicfunction tablesUsedByAReport(myReportName asstring)asstringDim m_report As CRAXDRT.Report, _      m_crystal As CRAXDRT.Application, _      m_tablesUsedByAReport AsStringDim m_table As CRAXDRT.DatabaseTable, _      m_section As CRAXDRT.section, _      m_objet AsObject, _      m_subReport As CRAXDRT.SubreportObjectSet m_crystal =New CRAXDRT.ApplicationSet m_rapport = m_crystal.OpenReport(m_nomRapport,1)'table names in the report'ForEach m_table In m_rapport.Database.tables    m_tablesUsedByAReport = m_tablesUsedByAReport & m_table.location &";"Next m_table 'table names in each of the subreports'ForEach m_section In m_rapport.Sections    ForEach m_objet In m_section.ReportObjects        If m_objet.Kind= crSubreportObject Then            Set m_subReport = m_objet            Set m_report = m_subReport.OpenSubreport            ForEach m_table In m_rapport.Database.tables                m_tablesUsedByAReport = m_tablesUsedByAReport & m_table.location &";"           Next m_table        EndIf    Next m_objetNext m_section 'my tables list'tablesUsedByAReport = m_tablesUsedByAReport Endfunction

 

Filed under Crystal Reports, Visual Studio

Speed Up ToolBox Opening

31-Jul-0909 Leave a comment

 
Change setting
Tools > Options > Windows Forms Designer > ToolBox > AutoToolBoxPopulate
From True to False
 
 
 

Filed under Visual Studio

FXCop Analyze shows dialog “Locate Assembly Reference”

30-Jul-0909 Leave a comment

 
If when using FXCop Analyze you get a dialog box entitled "locate assembly reference"
  1. Go to the project references.
  2. Find the related reference and note it’s location in the file system.
  3. Return to FXCop and browse to this location and put in dialog box

Also Crystal Decisions.Shared lives in C:\WINDOWS\assembly\GAC_MSIL\CrystalDecisions.Shared\10.5.3700.0__692fb ….
Unable to navigate to this or find a copy of the file. So for GAC use following

  1. Open FxCop 1.36.
  2. Click menu: “Project | Options…”
  3. Click the “Spelling & Analysis” tab in the “Project Options” dialog.
  4. Select the “Search Global Assembly Cache for missing references” option (by default it is unselected).

http://social.msdn.microsoft.com/forums/en-US/vstscode/thread/b84b52e6-5908-44f9-a2cd-3f604477a4d8/

Also see that the Config file "FxCopCmd.exe.config" may be edited. See

 
 
 

Filed under Design

Strongly Named Key

27-Jul-0909 Leave a comment

Filed under Visual Studio

Refactor

27-Jul-0909 Leave a comment

 
Book
 
Names all those tricks that you have been doing for a while and a lot of those that you may not currently do.
Explains motivation – method and examples.
 
Very good.

Filed under Design

How to add a network place directed to your own PC

22-Jul-0909 Leave a comment

 
How to add a network place directed to your own PC
 
file://C:\Documents and Settings\UserName\Application Data\Microsoft\Microsoft SQL Server\90\Tools\Shell\Templates\Sql

Filed under Windows

Bind a Combo or ListBox to an Enumeration

21-Jul-0909 Leave a comment

While this works, most Enum are in Camel case and do not have spaces, which may not be what you want

ComboBox1.DataSource = System.Enum.GetValues(GetType(PeopleNames))

Dim nameid As PeopleNames = CType(ComboBox1.SelectedValue, PeopleNames)

Note there should be no need to set the DisplayMember. If it does not work check that you have nothing on the control > DataBindings > Text binding

The variable “nameid” contains a 0, or 1, or 2 etc. depending on the value of the enumerated item that is currently selected.

May also bind to VS enumerations. Good use would be to bind to

ListBoxChartType.DataSource = System.Enum.GetValues(GetType(System.Windows.Forms.DataVisualization.Charting.SeriesChartType))

 

Filed under VB.Net

Office save/backup my settings

21-Jul-0909 Leave a comment

 
Save My Settings does not exist in Office 2007.
However see below copied from link:
 
 
1. The Quick Access Toolbars for Excel, Word, and PowerPoint are saved in
separate ".QAT" files (stands for Quick Access Toolbar), in the following
directory in Windows XP:

C:\Documents and Settings\(User Name)\Local Settings\Application
Data\Microsoft\Office

In that folder look for:    Excel.qat, PowerPoint.qat, Word.qat, etc.
So for example, if you want to transfer your Excel toolbar settings to
another computer, or after you reinstall Office 2007, just copy your custom
Excel.qat to that same folder, replacing the original.

 
2. All other settings (options menu) are stored in the registry here:

HKEY_CURRENT_USER\Software\Microsoft\Office\12.0

You can just export the whole "12.0" registry tree to a .REG file, and store
it somewhere. When you need to use it (after reinstall or on a different
computer), just double click on that REG file to update the registry.  Before
you do that, I suggest that you backup your registry just to be safe, if
something goes south.

Good luck

 
 
 
 
 

Filed under MS Office

My Other Blog Start

16-Jul-0909 Leave a comment

Technorati Tags: ,

This blog is intended for non-IT posts.
Not certain of content at the moment

Filed under Uncategorized

← Older posts

Newer posts →