Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000408: Работа с текстовой базой данных.

Автор вопроса: Григорьев // 09.08.2007 / 10:58

Здравствуйте, Эксперты!
 
 VB-6 не воспринимает строку
 Dim [To] As String - выдаёт сообщение:
 
 Ошибка компиляции:
 Ошибка синтаксиса.
 
 Видимо, скобки не помогли :)
 Может, посоветуете, как это обойти?
 
 С уважением,
 Григорьев Николай.

Отвечает: Алексей Немиро // 09.08.2007 / 11:14

Может, посоветуете, как это обойти?

 Можно, поменяйте имя переменной, вместо To, на что-нибудь другое:
 Dim To1 As String

Вопрос #000406: VB-6_и__текстовоый_файл

Автор вопроса: Григорьев // 06.08.2007 / 11:35

Здравствуйте, expert.
 
 Подскажите, пожалуйста, как в VB-6 организовать
извлечение данных из текстового файла?
 Например, задав ID =F9 и число 15,7 (лежит в диапазоне 14...18), нужно получить +0,059 и +0.016 для дальнейших расчётов.
 Фрагмент текстового файла -во вложении.
 Таких "Таблиц" много готовых, поэтому преобразовывать их в какой-либо другой формат нецелесообразно.
 
 С уважением, Григорьев Николай.
 
 Текстовой файл:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
* Предельные отклонения отверстий по СТ СЭВ 144-88
* Для отверстий диаметром свыше "От" до диаметра "До"
** Не трогать колонки здесь и в других таблицах стандарта!
ID  От  До  ВО   НО
A9  3  6  +0.30  +0.27
A11 
3  6  +0.345 +0.270
A13  3  6  +0.45  +0.27
B9  3  6  +0.17  +0.14
B11  3  6  +0.215 +0.140
B12  3  6  +0.26  +0.14
B13  3  6  +0.32  +0.14
C8  3  6  +0.088 +0.070
C9  3  6  +0.10  +0.07
C11  3  6  +0.145 +0.070
C12  3  6  +0.19  +0.07
C13  3  6  +0.25  +0.07
D6  3  6  +0.038 +0.030
D7  3  6  +0.042 +0.030
D8  3  6  +0.048 +0.030
D9  3  6  +0.06  +0.03
D10  3  6  +0.078 +0.030
D11  3  6  +0.105 +0.030
D12  3  6  +0.15 
+0.03
E5  3  6  +0.025 +0.020
E6  3  6  +0.028 +0.020
E7  3  6  +0.032 +0.020
E8  3  6  +0.038 +0.020
E9  3  6  +0.05  +0.02
E10  3  6  +0.068 +0.020
F5  3  6  +0.015 +0.010
F6  3  6  +0.018 +0.010
F7  3  6  +0.022 +0.010
F8  3  6  +0.028 +0.010
F9  3  6  +0.04  +0.01
F10  3  6  +0.058 +0.010
G5  3  6  +0.009 +0.004
G6  3  6  +0.012 +0.004
G7  3  6  +0.016 +0.004
H4  3  6  +0.004
H5  3  6  +0.005
H6  3  6  +0.008
H7  3  6  +0.012
H8  3  6  +0.018
H9  3  6  +0.03
H10  3  6  +0.048
H11  3  6  +0.075
H12  3  6  +0.12
H13  3  6  +0.18
H14  3  6  +0.3
H15  3  6  +0.4
H16  3  6  +0.75
J6  3  6  +0.005 -0.003
J7  3  6  +0.006 -0.006
J8  3  6  +0.010 -0.008
Js4  3  6  +0.002 -0.002
Js5  3  6  +0.0025 -0.0025
Js6  3  6  +0.004 -0.004
Js7  3  6  +0.006 -0.006
Js8  3  6  +0.009 -0.009
Js9  3  6  +0.015 -0.015
Js10 3  6  +0.024 -0.024
Js11 3  6  +0.037 -0.037
Js12 3  6  +0.06  -0.06
Js13 3  6  +0.09  -0.09
Js14 3  6  +0.15  -0.15
K5  3  6      -0.005
K6  3  6  +0.002 -0.006
K7  3  6  +0.003 -0.009
K8  3  6  +0.005 -0.013
M5  3  6  -0.003 -0.008
M6  3  6  -0.001 -0.009
M7  3  6      -0.012
M8  3  6  +0.002 -0.016
N5  3  6  -0.007 -0.012
N6  3  6  -0.005 -0.013
N7  3  6  -0.004 -0.016
N8  3  6  -0.002 -0.020
N9  3  6      -0.03
N10  3  6      -0.048
P5  3  6  -0.011 -0.016
P6  3  6  -0.009 -0.017
P7  3  6  -0.008 -0.020
P8  3  6  -0.012 -0.030
P9  3  6  -0.012 -0.042
R6  3  6  -0.012 -0.020
R7  3  6  -0.011 -0.023
R8  3  6  -0.015 -0.033
S6  3  6  -0.016 -0.024
S7  3  6  -0.015 -0.027
T6  3  6
T7  3  6
U7  3  6  -0.019 -0.031
U8  3  6  -0.023 -0.041
Z8  3  6  -0.035 -0.053
A9  6  10  +0.316 +0.280
A11  6  10  +0.37  +0.28
A13  6  10  +0.50  +0.28
B9  6  10  +0.186 +0.150
B11  6  10  +0.24  +0.15
B12  6  10  +0.30  +0.15
B13  6  10  +0.37  +0.15
C8  6  10  +0.102 +0.080
C9  6  10  +0.116 +0.080
C11  6  10  +0.17  +0.08
C12  6  10  +0.23  +0.08
C13  6  10  +0.30  +0.08
D6  6  10  +0.049 +0.040
D7  6  10  +0.055 +0.040
D8  6  10  +0.062 +0.040
D9  6  10  +0.076 +0.040
D10  6  10  +0.098 +0.040
D11  6  10  +0.13  +0.04
D12  6  10  +0.19  +0.04
E5  6  10  +0.031 +0.025
E6  6  10  +0.034 +0.025
E7  6  10  +0.040 +0.025
E8  6  10  +0.047 +0.025
E9  6  10  +0.061 +0.025
E10  6  10  +0.083 +0.025
F5  6  10  +0.019 +0.013
F6  6  10  +0.022 +0.013
F7  6  10  +0.028 +0.013
F8  6  10  +0.035 +0.013
F9  6  10  +0.049 +0.013
F10  6  10  +0.071 +0.013
G5  6  10  +0.011 +0.005
G6  6  10  +0.014 +0.005
G7  6  10  +0.020 +0.005
H4  6  10  +0.004
H5  6  10  +0.006
H6  6  10 
+0.009
H7  6  10  +0.015
H8  6  10  +0.022
H9  6  10  +0.036
H10  6  10  +0.058
H11  6  10  +0.09
H12  6  10  +0.15
H13  6  10  +0.22
H14  6  10  +0.36
H15  6  10  +0.58
H16  6  10  +0.9
J6  6  10  +0.005 -0.004
J7  6  10  +0.008 -0.007
J8  6  10  +0.012 -0.010
Js4  6  10  +0.002 -0.002
Js5  6  10  +0.003 -0.003
Js6  6  10  +0.0045 -0.0045
Js7  6  10  +0.007 -0.007
Js8  6  10  +0.011 -0.011
Js9  6  10  +0.018 -0.018
Js10 6  10  +0.029 -0.029
Js11 6  10 
+0.045 -0.045
Js12 6  10  +0.075 -0.075
Js13 6  10  +0.11  -0.11
Js14 6  10  +0.18  -0.18
K5  6  10  +0.001 -0.005
K6  6  10  +0.002 -0.007
K7  6  10  +0.005 -0.010
K8  6  10  +0.006 -0.016
M5  6  10  -0.004 -0.010
M6  6  10 
-0.003 -0.012
M7  6  10      -0.015
M8  6  10  +0.001 -0.021
N5  6  10  -0.008 -0.014
N6  6  10  -0.007 -0.016
N7  6  10  -0.004 -0.019
N8  6  10  -0.003 -0.025
N9  6  10      -0.036
N10  6  10     
-0.058
P5  6  10  -0.013 -0.019
P6  6  10  -0.012 -0.021
P7  6  10  -0.009 -0.024
P8  6  10  -0.015 -0.037
P9  6  10  -0.015 -0.051
R6  6  10  -0.016 -0.025
R7  6  10  -0.013 -0.028
R8  6  10  -0.019 -0.041
S6  6  10 
-0.020 -0.029
S7  6  10  -0.017 -0.032
T6  6  10
T7  6  10
U7  6  10  -0.022 -0.037
U8  6  10  -0.028 -0.050
Z8  6  10  -0.042 -0.064
A9  10  14  +0.333 +0.29
A11  10  14  +0.40  +0.29
A13  10  14  +0.56  +0.29
B9  10 
14  +0.193 +0.150
B11  10  14  +0.26  +0.15
B12  10  14  +0.33  +0.15
B13  10  14  +0.42  +0.15
C8  10  14  +0.122 +0.095
C9  10  14  +0.138 +0.095
C11  10  14  +0.205 +0.095
C12  10  14  +0.275 +0.095
C13  10  14  +0.365 +0.095
D6  10  14  +0.061 +0.050
D7  10 
14  +0.068 +0.050
D8  10  14  +0.077 +0.050
D9  10  14  +0.093 +0.050
D10  10  14  +0.12  +0.05
D11  10  14  +0.16  +0.05
D12  10  14  +0.23  +0.05
E5  10  14  +0.040 +0.032
E6  10  14  +0.043 +0.032
E7  10  14  +0.050 +0.032
E8  10  14  +0.059 +0.032
E9  10  14  +0.075 +0.032
E10  10  14  +0.102 +0.032
F5  10  14  +0.024 +0.016
F6  10  14  +0.027 +0.016
F7  10  14  +0.034 +0.016
F8  10  14  +0.043 +0.016
F9  10  14  +0.059 +0.016
F10  10  14  +0.086 +0.016
G5  10  14  +0.014 +0.006
G6  10 
14  +0.017 +0.006
G7  10  14  +0.024 +0.006
H4  10  14  +0.005
H5  10  14  +0.008
H6  10  14  +0.011
H7  10  14  +0.018
H8  10  14  +0.027
H9  10  14  +0.043
H10  10  14  +0.07
H11  10  14  +0.11
H12  10  14  +0.18
H13  10  14  +0.27
H14 
10  14  +0.43
H15  10  14  +0.7
H16  10  14  +1.1
J6  10  14  +0.006 -0.005
J7  10  14  +0.010 -0.008
J8  10  14  +0.015 -0.012
Js4  10  14  +0.0025 -0.0025
Js5  10  14  +0.004 -0.004
Js6  10  14  +0.0055 -0.0055
Js7  10  14  +0.009 -0.009
Js8  10  14  +0.013 -0.013
Js9  10  14  +0.021 -0.021
Js10 10  14  +0.035 -0.035
Js11 10  14  +0.055 -0.055
Js12 10  14  +0.09  -0.09
Js13 10  14  +0.135 -0.135
Js14 10  14  +0.215 -0.215
K5  10  14  +0.002 -0.006
K6  10  14  +0.002 -0.009
K7  10  14  +0.006 -0.012
K8  10  14 
+0.008 -0.019
M5  10  14  -0.004 -0.012
M6  10  14  -0.004 -0.015
M7  10  14      -0.018
M8  10  14  +0.002 -0.025
N5  10  14  -0.009 -0.017
N6  10  14  -0.009 -0.020
N7  10  14  -0.005 -0.023
N8  10  14  -0.003 -0.030
N9  10  14     
-0.043
N10  10  14      -0.07
P5  10  14  -0.015 -0.023
P6  10  14  -0.015 -0.026
P7  10  14  -0.011 -0.029
P8  10  14  -0.018 -0.045
P9  10  14  -0.018 -0.061
R6  10  14  -0.020 -0.031
R7  10  14  -0.016 -0.034
R8  10  14  -0.023 -0.050
S6  10  14  -0.025 -0.036
S7  10  14  -0.021 -0.039
T6  10  14
T7  10  14
U7  10  14  -0.026 -0.044
U8  10  14  -0.033 -0.060
Z8  10  14  -0.050 -0.077
A9  14  18  +0.333 +0.290
A11  14  18  +0.40  +0.29
A13  14  18  +0.56  +0.29
B9  14 
18  +0.193 +0.150
B11  14  18  +0.26  +0.15
B12  14  18  +0.33  +0.15
B13  14  18  +0.42  +0.15
C8  14  18  +0.122 +0.095
C9  14  18  +0.138 +0.095
C11  14  18  +0.205 +0.095
C12  14  18  +0.275 +0.095
C13  14  18  +0.365 +0.095
D6  14  18  +0.061 +0.050
D7  14 
18  +0.068 +0.050
D8  14  18  +0.077 +0.050
D9  14  18  +0.093 +0.050
D10  14  18  +0.12  +0.05
D11  14  18  +0.16  +0.05
D12  14  18  +0.23  +0.05
E5  14  18  +0.040 +0.032
E6  14  18  +0.043 +0.032
E7  14  18  +0.050 +0.032
E8  14  18  +0.059 +0.032
E9  14  18  +0.075 +0.032 
E10  14  18  +0.102 +0.032
F5  14  18  +0.024 +0.016
F6  14  18  +0.027 +0.016
F7  14  18  +0.034 +0.016
F8  14  18  +0.043 +0.016
F9  14  18  +0.059 +0.016  Пример из этой строки: ID =F9 и число 15,7 (лежит в диапазоне 14...18)
F10  14  18  +0.086 +0.016             
надо получить: ВО= +0.059   НО= +0.016
G5  14  18  +0.014 +0.006
G6  14  18  +0.017 +0.006
G7  14  18  +0.024 +0.006
H4  14  18  +0.005
H5  14  18  +0.008
H6  14  18  +0.011
H7  14  18  +0.018
H8  14  18  +0.027
H9  14  18  +0.043
H10  14  18 
+0.07
H11  14  18  +0.11
H12  14  18  +0.18
H13  14  18  +0.27
H14  14  18  +0.43
H15  14  18  +0.7
H16  14  18  +1.1
J6  14  18  +0.006 -0.005
J7  14  18  +0.010 -0.008
J8  14  18  +0.015 -0.012
Js4  14  18  +0.0025 -0.0025
Js5  14  18  +0.004 -0.004
Js6 
14  18  +0.0055 -0.0055
Js7  14  18  +0.009 -0.009
Js8  14  18  +0.013 -0.013
Js9  14  18  +0.021 -0.021
Js10 14  18  +0.035 -0.035
Js11 14  18  +0.055 -0.055
Js12 14  18  +0.09  -0.09
Js13 14  18  +0.135 -0.135
Js14 14  18  +0.215 -0.215
K5  14  18  +0.002 -0.006
K6  14 
18  +0.002 -0.009
K7  14  18  +0.006 -0.012
K8  14  18  +0.008 -0.019
M5  14  18  -0.004 -0.012
M6  14  18  -0.004 -0.015
M7  14  18      -0.018
M8  14  18  +0.002 -0.025
N5  14  18  -0.009 -0.017
N6  14  18  -0.009 -0.020
N7  14 
18  -0.005 -0.023
N8  14  18  -0.003 -0.030
N9  14  18      -0.043
N10  14  18      -0.07
P5  14  18  -0.015 -0.023
P6  14  18  -0.015 -0.026
P7  14  18  -0.011 -0.029
P8  14  18  -0.018 -0.045
P9  14  18  -0.018 -0.061
R6  14 
18  -0.020 -0.031
R7  14  18  -0.016 -0.034
R8  14  18  -0.023 -0.050
S6  14  18  -0.025 -0.036
S7  14  18  -0.021 -0.039
T6  14  18
T7  14  18
U7  14  18  -0.026 -0.044
U8  14  18  -0.033 -0.060
Z8  14  18  -0.060 -0.087

Отвечает: Алексей Немиро // 06.08.2007 / 11:53

Здравствуйте, Николай!
 
 Ваш текстовой файл имеет определенную структуру, Вы можете
 прочитать файл построчно, занося в переменные параметры, которые
 находятся в файле,
например:
 
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
Dim
sReadLine As String
'открываем файл для чтения
Open "C:\Данные.txt" For Input As #1
'считываем файл и выводим построчно _
пока EOF равен False
Do Until EOF(1)
 'читаем
строку
 Line Input #1, sReadLine
 'если это не комментарий
 If Not Left(Trim(sReadLine), 1) = "*" Then
  'это не комментарий, значит это данные
  Dim ID As String
  Dim From As String
  Dim [To] As String 'в скобках, поскольку To является ключевым словом Visual Basic
  Dim BO As String
  Dim HO As String
  ID = Trim(Mid(sReadLine, 1, 6)) 'первые 6 символов в строке
  'функция Trim удаляет все пробелы по бокам
  If UCase(ID) = "F9" Then 'вместо
"F9" надо поставить переменную, которая будет содержать искомое значение
   'нашли идишник, который нам нужен, получаем остальные данные
   From = Trim(Mid(sReadLine, 7, 5))
   'далее, поскольку это число, можем его преобразовать в число
   Dim dFrom As
Double
   If IsNumeric(From) Then dFrom = CDbl(From)
   'остальные параметры
   [To] = Trim(Mid(sReadLine, 12, 5))
   '.. делаем тоже самое что и с From
   '..
   '...
   'и т.д. и т.п
   Exit Do 'выходим из цикла, т.к. все что нужно мы уже нашли
  End If
 End If
Loop
Close #1 'закрываем файл

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей

Вопрос #000401: Запись данных в последовательный и параллельный...

Автор вопроса: // 03.08.2007 / 13:35

Как записать двоичные данные в COM и LPT порт из C# ? Приведите,пожалуйста,примеры.
 Спасибо!
 __________

Отвечает: EROS // 04.08.2007 / 09:37

Здравствуйте.
 В NET для работы с портами предусмотрен класс
 System.IO.Ports.SerialPort.
 Для записи данных в порт используйте один из перегруженных методов
 Write или WriteLine
 -- 
 С уважением,
 EROS

Вопрос #000400: Работа с сокетами

Автор вопроса: Николай // 03.08.2007 / 12:55

Система программирования: Visual Basic.NET 2005. 
 Пишу диплом(приложение типа клиент-сервер) и сталкнулся со следующей проблемой. В VB6 есть Winsock с которым очень лего работать по сети, а в VB.NET такого нету, там испоьзуются сокеты. Прочитал справку в MSDN, полазил по форумам различным, лишь тока кашу создал у себя в голове. Не могу понять как работать с сокетами. Если
можете помогите пожалуйста. Или дайте пример программы клиент-сервер, простейший чат какойнибудь. 
 Да чуть незабыл :) надо все делать на TCP\IP, т.к. через программу будут проходить файлы, а через UDP их опасно высылать.
 Заранее спасибо!
 
 --------------------------------------
 Категория: --- Visual Basic .NET
 
 

Отвечает: EROS // 04.08.2007 / 08:59

Здравствуйте, Николай.
 В VS2005 с сокетами в чистом виде никто не работает (если только для
 решения каких то специфичных задач). Для этого используют его
 наследников.. в вашем случае это будет TcpClient. Для организации
 клиент-севрверного приложения вам понядобятся 2 класса:
 TcpClient и
 TcpListener.
 
 
 -- 
 С уважением,
 EROS             mailto:eros@fromru.com

Вопрос #000389: Программный перевод компьютера в спящий режим

Автор вопроса: Игорь Голов // 23.07.2007 / 02:15

Доброго времени суток!
 Возникла проблема - необходимо переводить компьютер в спящий режим из разрабатываемой программы.
 
 Как это сделать?
 
 Платформа: Microsoft Visual Basic 2005.
 
 Спасибо!
 
 --------------------------------------
 Категория: --- Visual Basic
.NET

Отвечает: EROS // 23.07.2007 / 09:38

Application.SetSuspendState Method
 Suspends or hibernates the system, or requests that the system be 
 suspended or hibernated.
  
 Подробности тут
  
 С Уважением, EROS 

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Как программно отключиться от интернета | Автор: ZXC
Добавлено: 09.08.2007 / 22:26 | ответов: 0 | просмотров: 10

Собственно вопрос, как программно разорвать все подключения :)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ini Files in VB | Автор: Гость: logslava
Добавлено: 08.08.2007 / 13:33 | ответов: 2 | просмотров: 51

Здравствуйте,
вопрос такой: в Дельфи есть удобный класс TIniFile, позволяющий работать с ини файлами (читать значения, записывать и пр.).
есть ли аналог такого класса в VB или нужно создавать самому основываясь на FileStream?
Спасибо

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:08.08.2007 / 13:42
А зачем добавлять этот вопрос в форум "Сайт", который не имеет абсолютно никакого отношения к программированию!!
Тема перемещена в другой форум Администратором сайта.

вопрос такой: в Дельфи есть удобный класс TIniFile, позволяющий работать с ини файлами (читать значения, записывать и пр.).
есть ли аналог такого класса в VB или нужно создавать самому основываясь на FileStream?

В VB 6.0 для этого используются API.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: LeX
Добавлено:09.08.2007 / 09:47
офф-топ

А зачем добавлять этот вопрос в форум "Сайт", который не имеет абсолютно никакого отношения к программированию!!

Регистрироваться лень было :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Изменена система голосования за ответы на форуме | Автор: Алексей
Добавлено: 08.08.2007 / 09:33 | ответов: 3 | просмотров: 55

Изменена система голосования за ответы на форуме. Раньше только автор
темы мог голосовать за ответы, которые ему дают. Теперь это
ограничение снято и любой пользователь может голосовать за все ответы
(кроме своих). Надеюсь, после этого, рейтинг пользователей будет более
активно изменяться, чем раньше.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: LeX
Добавлено:08.08.2007 / 10:10
Это хорошо :) А то у Билли уже кубок отобрали, но мы его ему вернем :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:08.08.2007 / 12:15
Это хорошо :) А то у Билли уже кубок отобрали, но мы его ему вернем

Накрутка не поможет, может стать только хуже ;)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: LeX
Добавлено:08.08.2007 / 12:35
Причем тут накрутка? Просто голосовать.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Вопросец по ADO . NET :) | Автор: Игорь Голов
Добавлено: 08.08.2007 / 02:33 | ответов: 0 | просмотров: 39

Возник вопросец по ADO .NET

Интересует джентльменский набор:

- перемещение указателя.
- добавление Записи
-удаление Записи
- редактирование Записи.

Есть код - результат самостоятельного изучения вопроса:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
Public Class frmMain

  Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'DbDataSet.tblMessages' table. You can move, or remove it, as needed.
    Me.TblMessagesTableAdapter.Fill(Me.DbDataSet.tblMessages)
    'TODO: This line of code loads data into the 'DbDataSet._12' table. You can move, or remove it, as needed.
    Me._12TableAdapter.Fill(Me.DbDataSet._12)
    'Me.bnd_12.AddNew()
    'me.bnd_12.Add(
    'Добавляет запись в Базу Данных и утверждает изменения
    Me.DbDataSet.tblMessages.AddtblMessagesRow("fa", "", "", "", 0, "12.01.2007")
    Me.DbDataSet.tblMessages.AcceptChanges()
    '-----------------------

    'Записывает Базу Данных В XML - формате 
    Me.DbDataSet.tblMessages.WriteXml("c:\PPC.xml")
    '-------------------
    

  End Sub


  Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim d_r As System.Data.DataRowCollection 'IDataReader
    d_r = Me.DbDataSet.tblMessages.Rows

    For i = 0 To Me.DbDataSet.tblMessages.Rows.Count - 1
      Dim s_ As String = ""
      For
j = 0 To Me.DbDataSet.tblMessages.Columns.Count - 1
        s_ = s_ & d_r.Item(i).Item(j).ToString & " "
      Next
      s_ = Strings.Trim(s_)
      MsgBox(s_)
    Next


    Me.DbDataSet.tblMessages.AddtblMessagesRow("Hansen", "", "", "", 123, "08.08.2007")

    MsgBox("Промежуточный результатик!.. :)")
    d_r.Remove(d_r.Item(2))


  End Sub

  
End Class

Colorized by: Eros.CodeSyntaxColor Engine

Я ничего не забыл?

P.S : И хотелось бы статью прочитать про этот самый ADO .NET (желательно на Kbyte.ru :) )

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Программа "Виснит" но работает.. | Автор: ZXC
Добавлено: 07.08.2007 / 12:29 | ответов: 3 | просмотров: 72

Вот такое название темы :) собственно так и есть, программа выполняет работу с текстовыми файлами, очень большими, и после запуска она "виснит" т.е на её заголовке появляется "Не отвечает" но на самом деле всё работает надо просто ждать, так вот, я видел много аналогичных программ но там спокойно работает прогресс бар, спокойно можно двигать форму, и даже нажать на кнопку Отмена, как они так делают? ведь везде цикл почти одинаковый и файлы одинаково большого размера, мож есть какие нибуть хитрости чтобы программа спокойно обрабатывала файлы а не висла??? Вот собственно и всё, много написал надеюсь понятно объяснил вопрос :)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:07.08.2007 / 12:41
В цикл поставь:

System.Windows.Forms.Application.DoEvents()

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Игорь Голов
Добавлено:07.08.2007 / 17:57
или просто Application.DoEvents()

У меня и так срабатывает...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: EROS
Добавлено:08.08.2007 / 08:34
DoEvents - это кратковременное решение(и более легкое).. так называемый костыль..
Как правило, долговременные процессы выносят в отдельный поток (иногда даже в фоновый). И делают это для того, чтобы основной поток, тот в котором работает GUI, не подвисал и мог обрабатывать поступающие сообщения..
Но! Потоки и их синхронизация (на мой взгляд) это одна из сложнейших тем в программировании требующая детального понимания системы.. И написание корректного кода - это очень и очень трудоемкий процесс..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 360

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 707

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 150

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1826

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1751

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как получит индекс текущей записи в ListView?
Дата добавления: 23.08.2006 / 19:11 | просмотров: 848 | платформа: VB .NET

Перекодировка текста с латинской раскладки в русскую
Дата добавления: 16.08.2006 / 19:12 | просмотров: 1177 | платформа: VB

Как добавить сайт в избранное?
Дата добавления: 24.03.2007 / 12:36 | просмотров: 299 | платформа: VB .NET

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 626 | платформа: VB

Как получить строку параметров текущего запроса?
Дата добавления: 31.07.2006 / 15:38 | просмотров: 796 | платформа: ASP .NET (VB)

Как запретить перезагрузку страницы при нажатии на кнопку (Button/LinkButton)?
Дата добавления: 31.07.2006 / 13:08 | просмотров: 910 | платформа: ASP .NET (VB)

Как программно вызвать окно Установка связи с Интернет?
Дата добавления: 17.08.2006 / 18:12 | просмотров: 554 | платформа: VB

Как программно изменить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:25 | просмотров: 626 | платформа: ASP .NET (VB)

Как получить случайное число?
Дата добавления: 16.08.2006 / 19:52 | просмотров: 431 | платформа: VB

Как обработать клиентские события элемента управления?
Дата добавления: 17.08.2006 / 17:50 | просмотров: 567 | платформа: ASP .NET (VB)

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Контоpа наша сильно компьютеpизована, а охpана от безделья мается. Вот и пpиходилось их вечеpом, когда никого нет, иногда пускать поигpать на компьютеpе. Из-за великого облома, мне лень было ставить какую-либо игpу окpомя Quake. Так и получилось, что игpают охpанники наши только в Quake. Как-то pаз позвонили им из центpальной контоpы, с пpовеpкой - все ли ноpмально. И вот, значит, один из них, зажав тpубку между ухом и плечом и односложно отвечая на вопpосы, пытается убить очеpедного монстpа. Однако, pазговоp его отвлекает, и получается, что скоpее монстp сейчас сделает охpанника, а не охpанник монстpа. В конце концов настыpное виpтуальное создание тоpжествует победу над человеческим pазумом. И как pаз в этот момент охpанник, видимо, на заданный в очеpедной pаз вопpос:
- Hу и как там тебе, - pычит в тpубку, от волнения сьезжая на хpип
- Да хреново мне, убивают меня! Понятно?, - и бpосает
тpубку
Реакция системы охpаны и милиции была пpактически мгновенной. Пpимеpно чеpез пять минут в двеpи офиса уже ломился наpяд милиции, ожидая встpетить гpабителей, убивающих нашу охpану. Охpана, увидев непонятных мужиков (а кто сейчас веpит фоpме) пpиготовилась отбиваться из пушек или отсиживаться за толстой стальной двеpью (втоpое более веpоятно). К счастью, инцидент был быстpо исчеpпан, но больше охpана в игpы не игpала.

Рейтинг: 53
Всего голосов: 68