Программирование, т. 2

а у тебя нет?

теперь есть

Option Explicit

Const strInputFilenameExtension = ".MARC"
Const strOutputFilenameExtension = ".CSV"

Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count <> 0 Then

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim strFiles
strFiles = ""

Dim strFile
strFile = ""

Dim objFile
Dim objFolder

Dim strArg
For Each strArg in objArgs
	Select Case True
		Case objFSO.FileExists(strArg):
				strFile = strArg
				If strFile <> "" And UCase(Right(strFile, Len(strInputFilenameExtension))) = strInputFilenameExtension Then
					strFiles = strFiles & ";" & strFile
				End If
		Case objFSO.FolderExists(strArg):
			Set objFolder = objFSO.GetFolder(strArg)
			For Each objFile In objFolder.Files
				strFile = objFile.Path
				If strFile <> "" And UCase(Right(strFile, Len(strInputFilenameExtension))) = strInputFilenameExtension Then
					strFiles = strFiles & ";" & strFile
				End If
			Next
			Set objFile = Nothing
			Set objFolder = Nothing
		Case Else:
	End Select
Next

If Left(strFiles, 1) = ";" Then
	strFiles = Mid(strFiles, 2, Len(strFiles) - 1)
End If

If Right(strFiles, 1) = ";" Then
	strFiles = Mid(strFiles, 1, Len(strFiles) - 1)
End If

Dim arrFiles
arrFiles = Split (strFiles, ";")

Dim intFile
Dim strFile_In
Dim strFile_Out
Dim objFile_In
Dim objFile_Out
Dim strRows_In
Dim strRows_Out

For intFile = LBound(arrFiles) To UBound(arrFiles)

	strFile_In = arrFiles(intFile)
	Set objFile_In = objFSO.OpenTextFile(strFile_In)
	strRows_In = objFile_In.ReadAll
	objFile_In.Close
	Set objFile_In = Nothing

	strFile_Out = arrFiles(intFile) & strOutputFilenameExtension
	Set objFile_Out = objFSO.CreateTextFile(strFile_Out, 8, True)

	Dim arrLines
	arrLines = Split(strRows_In, vbCrLf)
	Dim strLine
	For Each strLine in arrLines
		strRows_Out = MARC2TXT(strLine)
		objFile_Out.WriteLine(strRows_Out)
	Next

	objFile_Out.Close
	Set objFile_Out = Nothing

Next

Set objFSO = Nothing

End If

Set objArgs = Nothing

WScript.Quit

Function MARC2TXT (ByVal strLine)

MARC2TXT = ""

Dim markGS
markGS = Chr(29)

Dim markRS
markRS = Chr(30)

Dim markUS
markUS = Chr(31)

Dim arrGroups
arrGroups = Split(strLine, markGS)

Dim intGroup
intGroup = 0
Dim strGroup
For Each strGroup in arrGroups

	intGroup = intGroup + 1

	Select Case intGroup
		Case 1:
			MARC2TXT = MARC2TXT & "  DOC_ID" & vbTab & strGroup & vbNewLine
		Case 2:
			MARC2TXT = MARC2TXT & " RECTYPE" & vbTab & strGroup & vbNewLine
		Case 3:
			MARC2TXT = MARC2TXT & "BIBLEVEL" & vbTab & strGroup & vbNewLine
		Case Else:
			Dim arrRecords
			arrRecords = Split (strGroup, markRS)

			Dim intRecord
			intRecord = 0
			Dim strRecord
			For Each strRecord in arrRecords

				intRecord = intRecord + 1

				Dim arrUnits
				arrUnits = Split (strRecord, markUS)

				Dim intUnit
				intUnit = 0
				Dim strUnit
				For Each strUnit in arrUnits

					intUnit = intUnit + 1

					Select Case intUnit
						Case 1:
						Case Else:
							MARC2TXT = MARC2TXT & " " & Mid (arrUnits(0), 1, 3) & Mid (strUnit, 1, 1) & "-" & Mid (arrUnits(0), 4, 2) & vbTab & Mid (strUnit, 2, Len(strUnit) - 1) & vbNewLine
					End Select
				Next
			Next
	End Select
Next

End Function

если учить с++ вообще ни зная никаких языков и основ, то эта книга подойдет или лучше какая-то другая?

http://lib.ru/CPPHB/cpptut.txt

 

Как первую книгу нет, как энциклопедию и справочник, куда нужно подглядывать если что-то забыл да.

С++ как первый язык слишком сложен, думаю

ну хер знает чем он такой сложный.

для меня это первый язык был

для меня Паскаль был первым

а для меня перл

семафоров что-ли нахерачить чтобы такое невозможно было

По-моему достаточно "просто" не чистить коллекцию пока работаешь с ней, равзве не? Избавься от технически неправильной логики, если технические препятствия нельзя обойти.

Поцыки хелпаните что не так плз

 

Создал тестовую форму .

 

Хочу чтобы когда нажимал "submit" в форме, данные введенные мною приходили в таблицу моей бд . Работает только на половину , таблица заполняется при отправке данных , но в вместо того что я ввел - нули .

 

моя форма

index.php

 

<form method="post" action="report.php">

 

<input type="text" name="name"> </input>

 

 

<input type="text" name="email"> </input>

 

 

<input type="text" name="fb"> </input>

 

<input type="submit" name="submit"/>

 

файл

 

report.php

 

 

$name=$_POST['name'];

$email=$_POST['email'];

$fb=$_POST['fb'];

 

$connect = mysqli_connect ('localhost','root','','db') or die ('no') ;

$query = "INSERT INTO feedback (name,email,feedback ) VALUES ('$name','$email','$fb')";

mysqli_query($connect,$query) or die('just no');

mysqli_close($connect);

 

Хелпаните плз, застрял на этом , 2 часа не могу разобраться ,

Изменено 26 ноября 2012 пользователем brevno12

show create table feedback;

в поле имя напиши '; DROP TABLE feedback; --

 

show create table feedback;

;

если я правильно понял , то вот:

feedback CREATE TABLE `feedback` (

`name` int(30) NOT NULL,

`email` int(30) NOT NULL,

`feedback` int(100) NOT NULL

) ENGINE=InnoDB DEFAULT CHARSET=utf

 

в поле имя напиши '; DROP TABLE feedback; --

не понял

в поле имя напиши '; DROP TABLE feedback; --

не понял

попробуй вбить в любое поле ввода на сайте строку '; DROP TABLE feedback; --

поймешь

у тебя форма не закрыта что ли?

 

`name` int(30) NOT NULL,

`email` int(30) NOT NULL,

`feedback` int(100) NOT NULL

 

вроде же int(30) это число длинной до 30 символов? если так то не удивительно что у тебя там вместо букв нули

видишь там стоит not null

 

значит нулей быть не может

ну всмысле not null это не пусто

в поле имя напиши '; DROP TABLE feedback; --

не понял

попробуй вбить в любое поле ввода на сайте строку '; DROP TABLE feedback; --

поймешь

cделал , сработал 2-й die mysqli_query($connect,$query) or die('just no');

Я правда хз какой вывод из этого делать

 

 

у тебя форма не закрыта что ли?

 

`name` int(30) NOT NULL,

`email` int(30) NOT NULL,

`feedback` int(100) NOT NULL

 

вроде же int(30) это число длинной до 30 символов? если так то не удивительно что у тебя там вместо букв нули

 

форма закрыта

int(30) поменяй это на varchar(30) или text

думаю в этом причина

int(30) поменяй это на varchar(30) или text

думаю в этом причина

спасибо , я забыл , но проблема не ушла . Вместо нулей теперь пустые строки

через echo выводит поля?

всмысле из формы

Изменено 26 ноября 2012 пользователем iz0ker

через echo выводит поля?

всмысле из формы

ну я не писал эко никуда , ведь я сразу данные хочу направлять с формы на базу , зачем мне их выводить на экран?

что бы убедиться что у тебя с формы эти данные выходят, просто проверить, напиши в report.php

echo $name;

остальное пока в комментарии убери