Требуется совет в Visual Basic
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Требуется совет в Visual Basic - 2009-10-28 22:19:29.180000
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
Доброго времени суток!!!! у меня возник следующий вопрос, как в VB перенести данные из одного массива в другой??? притом выборочно…. пример: дан массив 2 2 5 8 64 8 9 4 5 надо из этого массива выбрать числа принадлежащие промежутку [ 4 ; 10 ] т.е. : 5 8 8 9 4 5 и чтобы во втором массиве не было "дырок" …. в VB всего неделю….
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-10-29 03:56:10.060000
|
|
|
user2
Сообщений: 23
Оценки: 0
Присоединился: 2007-04-29 04:55:51.176666
|
for i=1 to 9
if (mIiI>3)and(mIiI<11) then
j=j+1
m[j]=mIiI
end if
next i
где II-меняем на [], а то не постятся…
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-10-31 15:21:40.726666
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
спасибо, чел!!!!!
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-16 20:30:04.296666
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
ещё один вопрос возник: как в процедуре объявлять массивы???
(приложение консольное) 8|
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-16 20:46:43.600000
|
|
|
Lost_boy
Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
|
Так же как и в основной функции программы.
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-16 21:11:54.780000
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
не получится так. например:
Module Module1
Function k(ByVal A(20,20) As Double) As Integer
и в ответ: quote:
Ошибка 1 Границы массивов не могут присутствовать в спецификаторах типов.
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-16 21:13:11.583333
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
поправка: в процедурах точно такая же фишка…. функцию привёл в качестве примера
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 00:18:38.746666
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
пипл, погогите чем можете с написанием "мини записной книжки" (дата, время, задание) с использованием типизированных файлов …[sm=bn.gif]
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 04:20:46.590000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: ХиpypG
с использованием типизированных файлов
эээ…щито?
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 11:45:27.396666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
quote:
ORIGINAL: Denaturat
quote:
ORIGINAL: ХиpypG
с использованием типизированных файлов
эээ…щито?
File of <sometype> в паласкале. В отечественных методичках это называется "типизированный файл". Только почему вопрос в теме про VB? :) Может там тоже что-то такое есть?
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 18:15:03.580000
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
есть в VB такое.
начало кода, это я понимаю ещё :
Imports System.IO
Module Module1
Sub Main()
Const file_name As String = "1.d"
Dim fs As New FileStream(file_name, FileMode.Create, FileAccess.Write)
Dim w As New BinaryWriter(fs)
Console.WriteLine("введите дату")
Dim n As Date = Console.ReadLine
w.Write(n)
Console.WriteLine("введите время")
Dim m As Date = Console.ReadLine
Console.WriteLine("что надо выполнить: ")
w.Write(m)
Dim k As String = Console.ReadLine
а вот с дальниейшим выводом файла….[:-]
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 18:38:44.270000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Чел, ты определись, VB или VB.NET? В .NET такого нет… может достаточно выполнить сериализацию / десериализацию?
П.С. и с заданием определись, а именно: когда нужно считывать данные, а когда сохранять. И как будет происходить взаимодействие с пользователем.
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 19:13:30.790000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Переведи на VB.NET, можешь рефлектором :-P. Конкретно посмотри методы Save и Load - это то, что тебе надо.
using System;
using System.Collections.Generic;
using System.IO;
using System.Xml.Serialization;
namespace MiniReminder
{
public struct Ticket
{
public string _date;
public string _time;
public string _task;
public Ticket(string date, string time, string task)
{
_date = date;
_time = time;
_task = task;
}
}
class Program
{
private static void Main(string[] args)
{
Ticket ticket1 = new Ticket(
"13.13.666",
"13:13",
"killyourselfwiththewall");
Ticket ticket2 = new Ticket(
"01.02.1002",
"55:55",
"gotothegarden");
List<Ticket> record = new List<Ticket>();
record.Add(ticket1);
record.Add(ticket2);
try
{
Save("file.xml", record);
Load("file.xml", ref record);
}
catch (Exception ex)
{
Console.WriteLine("Error: {0}", ex.Message);
}
Console.Write("Press any key...");
Console.ReadKey();
}
private static void Save<T>( string path, T data )
{
using (FileStream fs = new FileStream(path, FileMode.Create))
{
XmlSerializer xs = new XmlSerializer(typeof(T));
xs.Serialize(fs, data);
}
}
private static void Load<T>(string path, ref T data)
{
using (FileStream fs = new FileStream(path, FileMode.Open))
{
XmlSerializer xs = new XmlSerializer(typeof(T));
data = (T)xs.Deserialize(fs);
}
}
}
}
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-26 21:17:50.873333
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
Звиняюсь, ещё раз чем???
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-27 01:56:41.070000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Гугль тебя спасёт. ">NET Reflector" или "VB Serialization".
Или ты такой примитивный код не можешь с шарпа на VB перевести? о_О
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-27 09:47:55.580000
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
ну тоже сравнил…. я VB только 3 месяца изучаю, да и то, как лекции вычитывают… в книгах по VB про консольные приложения почти ничего не упоминается, кое-как спасает динамический хелп msdn-на
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-27 12:22:43.436666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ну не знаю, не знаю. Я C# более менее за месяц выучил безо всяких лекций.
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-11-27 15:21:54.266666
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
Спасибо! будем стараться![sm=bf.gif]
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-12-15 20:29:23.036666
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
ещё раз всем привет! на этот раз возникли вопросы с текстовыми файлами.
Задача: в начале каждой строки текстового файла добавить комментарий, содержащий её номер.
вопрос возник в следующем: при выводе на экран конечного файла как сделать так, чтобы доходя до определённого символа курсор переходил на новую строку??
вот то, что я понаписал (остался только вывод на экран, и символ при котором курсор будет переходить на новую строку " [ ") :
Imports System.IO
Module Module1
Sub Main()
Dim f_n As String = Console.ReadLine
If Not File.Exists(f_n) Then
Console.WriteLine("файл {0} не найден!", f_n)
Return
End If
Dim fs As New FileStream(f_n, FileMode.Open, FileAccess.Read)
Dim w As New StreamReader(fs)
Const file_name As String = "1.d"
Dim fs2 As New FileStream(file_name, FileMode.Create, FileAccess.Write)
Dim m As New StreamWriter(fs2)
Dim h As New StreamReader(fs2)
Dim i As Integer = 1
While Not w.EndOfStream
m.Write("[{0}]", i)
i = i + 1
m.Write(w.ReadLine)
End While
'вот тут начинается трабл'
w.Close()
fs.Close()
m.Close()
fs2.Close()
h.Close()
Console.ReadLine()
End Sub
End Module
Спасибо.
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-12-16 01:16:04.243333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
\n ??
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-12-16 16:15:02.150000
|
|
|
ХиpypG
Сообщений: 12
Оценки: 0
Присоединился: 2009-07-20 21:53:11.570000
|
quote:
ORIGINAL: _SaZ_
\n ??
в смысле???
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-12-16 17:36:06.253333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
www.google.com/search?q=VB.NET+перевод+каретки
|
|
|
|
|
RE: Требуется совет в Visual Basic - 2009-12-19 18:20:21.526666
|
|
|
qwertyskinder
Сообщений: 1
Оценки: 0
Присоединился: 2009-12-19 18:05:18.016666
|
люди подскажите плиззз как в visual basic Посчитать в тексте количество переменных типа массив
|
|
|
|
|
|
