[NTDLL]
[reactos.git] / base / applications / mscutils / servman / export.c
1 /*
2 * PROJECT: ReactOS Services
3 * LICENSE: GPL - See COPYING in the top level directory
4 * FILE: base/system/servman/export.c
5 * PURPOSE: Save services to a file
6 * COPYRIGHT: Copyright 2006 Ged Murphy <gedmurphy@gmail.com>
7 *
8 */
9
10 #include "precomp.h"
11
12 static DWORD
13 GetTextFromListView(PMAIN_WND_INFO Info,
14 TCHAR Text[500],
15 INT row,
16 INT col)
17 {
18 LVITEM item;
19 DWORD NumChars;
20
21 ZeroMemory(&item, sizeof(item));
22 item.mask = LVIF_TEXT;
23 item.iSubItem = col;
24 item.pszText = Text;
25 item.cchTextMax = 500;
26 NumChars = (INT)SendMessage(Info->hListView,
27 LVM_GETITEMTEXT,
28 row,
29 (LPARAM)&item);
30
31 return NumChars;
32 }
33
34
35 static BOOL
36 SaveServicesToFile(PMAIN_WND_INFO Info,
37 LPCTSTR pszFileName)
38 {
39 HANDLE hFile;
40 BOOL bSuccess = FALSE;
41
42 hFile = CreateFile(pszFileName,
43 GENERIC_WRITE,
44 0,
45 NULL,
46 CREATE_ALWAYS,
47 FILE_ATTRIBUTE_NORMAL,
48 NULL);
49
50 if(hFile != INVALID_HANDLE_VALUE)
51 {
52 TCHAR LVText[500];
53 TCHAR newl = _T('\n');
54 TCHAR tab = _T('\t');
55 DWORD dwTextLength, dwWritten;
56 INT NumListedServ = 0;
57 INT i, k;
58
59 NumListedServ = ListView_GetItemCount(Info->hListView);
60
61 for (i=0; i < NumListedServ; i++)
62 {
63 for (k=0; k<5; k++)
64 {
65 dwTextLength = GetTextFromListView(Info,
66 LVText,
67 i,
68 k);
69 if (LVText != NULL)
70 {
71 WriteFile(hFile,
72 LVText,
73 sizeof(TCHAR) * dwTextLength,
74 &dwWritten,
75 NULL);
76
77 WriteFile(hFile,
78 &tab,
79 sizeof(TCHAR),
80 &dwWritten,
81 NULL);
82 }
83 }
84 WriteFile(hFile,
85 &newl,
86 sizeof(TCHAR),
87 &dwWritten,
88 NULL);
89 }
90
91 CloseHandle(hFile);
92 bSuccess = TRUE;
93 }
94
95 return bSuccess;
96 }
97
98
99 VOID ExportFile(PMAIN_WND_INFO Info)
100 {
101 OPENFILENAME ofn;
102 TCHAR szFileName[MAX_PATH] = _T("");
103
104 ZeroMemory(&ofn, sizeof(ofn));
105
106 ofn.lStructSize = sizeof(OPENFILENAME);
107 ofn.hwndOwner = Info->hMainWnd;
108 ofn.lpstrFilter = _T("Text (Tab Delimited)(*.txt)\0*.txt\0Text (Comma Delimited)(*.csv)\0*.csv\0");
109 ofn.lpstrFile = szFileName;
110 ofn.nMaxFile = MAX_PATH;
111 ofn.lpstrDefExt = _T("txt");
112 ofn.Flags = OFN_EXPLORER | OFN_PATHMUSTEXIST | OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT;
113
114 if(GetSaveFileName(&ofn))
115 {
116 if (SaveServicesToFile(Info, szFileName))
117 return;
118 }
119
120 if (CommDlgExtendedError() != CDERR_GENERALCODES)
121 MessageBox(NULL, _T("Export to file failed"), NULL, 0);
122 }